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

(regexp-opt-group): Put more parenthesis.

Browse source
This commit is contained in:
Stefan Monnier 2000-10-01 00:08:49 +00:00
parent 0f3360b0ec
commit bba6564ccf
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -187,10 +187,10 @@ so we can use character sets rather than grouping parenthesis."
;; common prefix: take it and recurse on the suffixes.
(let* ((n (length prefix))
(suffixes (mapcar (lambda (s) (substring s n)) strings)))
(concat open-charset
(concat open-group
(regexp-quote prefix)
(regexp-opt-group suffixes t t)
close-charset))
close-group))
(let* ((sgnirts (mapcar (lambda (s)
(concat (nreverse (string-to-list s))))
@ -200,11 +200,11 @@ so we can use character sets rather than grouping parenthesis."
;; common suffix: take it and recurse on the prefixes.
(let* ((n (- (length xiffus)))
(prefixes (mapcar (lambda (s) (substring s 0 n)) strings)))
(concat open-charset
(concat open-group
(regexp-opt-group prefixes t t)
(regexp-quote
(concat (nreverse (string-to-list xiffus))))
close-charset))
close-group))
;; Otherwise, divide the list into those that start with a
;; particular letter and those that do not, and recurse on them.