mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases 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
Show Stats 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)