From 9cc236e006e474dc83a90d0bb5bc5f6b99c9351e Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 23 May 2008 17:19:22 +0000 Subject: [PATCH] (regexp-opt): Always return a properly-grouped regexp. --- lisp/ChangeLog | 5 +++++ lisp/emacs-lisp/regexp-opt.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9b18c3e3b0..9f20d19152 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-05-23 Stefan Monnier + + * emacs-lisp/regexp-opt.el (regexp-opt): Always return + a properly-grouped regexp. + 2008-05-23 Juanma Barranquero * progmodes/cap-words.el (capitalized-words-mode): diff --git a/lisp/emacs-lisp/regexp-opt.el b/lisp/emacs-lisp/regexp-opt.el index 70f7141210..309c8e7bb8 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 -- 2.20.1