Re: regexp-opt-group

[Richard Stallman]

With this change, does everything work right?
It appears to be the right fix for this bug,
but I didn't have time to study the whole file carefully.

*** regexp-opt.el.~1.21.~       Thu Jun 20 10:43:11 2002
--- regexp-opt.el       Sun Jan 19 17:18:58 2003
***************
*** 223,229 ****
              ;; 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)))
                (concat open-group
                        (regexp-opt-group half1)
                        "\\|" (regexp-opt-group half2)
--- 223,231 ----
              ;; 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 strings))
!               (dolist (elt half1)
!                 (setq half2 (delq elt half2)))
                (concat open-group
                        (regexp-opt-group half1)
                        "\\|" (regexp-opt-group half2)