procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Stefan Monnier 2008-05-23 17:19:22 +00:00
parent f05cde180d
commit 9cc236e006
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/regexp-opt.el
View file

@ -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