(regexp-opt): Always return a properly-grouped regexp.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9b18c3e3b07..9f20d191528 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-05-23  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * emacs-lisp/regexp-opt.el (regexp-opt): Always return
+        a properly-grouped regexp.
+
 2008-05-23  Juanma Barranquero  <lekktu@gmail.com>
 
         * progmodes/cap-words.el (capitalized-words-mode):
diff --git a/lisp/emacs-lisp/regexp-opt.el b/lisp/emacs-lisp/regexp-opt.el
index 70f7141210d..309c8e7bb89 100644
--- a/lisp/emacs-lisp/regexp-opt.el
+++ b/lisp/emacs-lisp/regexp-opt.el
@@ -107,7 +107,7 @@ by \\=\\< and \\>."
            (open (cond ((stringp paren) paren) (paren "\\(")))
            (sorted-strings (delete-dups
                             (sort (copy-sequence strings) 'string-lessp)))
-           (re (regexp-opt-group sorted-strings open)))
+           (re (regexp-opt-group sorted-strings (or open t) (not open))))
       (if words (concat "\\<" re "\\>") re))))
 
 ;;;###autoload