Commit 2afd5e90 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 34a463f1
......@@ -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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment