mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

(regexp-opt-group): Compute HALF2 properly.

Browse source
This commit is contained in:
Richard M. Stallman 2003-01-20 09:00:48 +00:00
parent 34a463f1b1
commit 2afd5e90eb
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/emacs-lisp/regexp-opt.el
View file

@ -223,7 +223,10 @@ so we can use character sets rather than grouping parenthesis."
;; particular letter and those that do not, and recurse on them.
(let* ((char (char-to-string (string-to-char (car strings))))
(half1 (all-completions char strings))
(half2 (nthcdr (length half1) strings)))
(half2 strings))
;; Remove from HALF2 whatever is in HALF1.
(dolist (elt half1)
(setq half2 (delq elt half2)))
(concat open-group
(regexp-opt-group half1)
"\\|" (regexp-opt-group half2)