From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 1 Oct 2000 00:08:49 +0000 (+0000)
Subject: (regexp-opt-group): Put more parenthesis.
X-Git-Tag: emacs-pretest-21.0.90~1247
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bba6564ccf95c7927b5a60d094930bde5a8b2a29;p=emacs.git

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

diff --git a/lisp/emacs-lisp/regexp-opt.el b/lisp/emacs-lisp/regexp-opt.el
index e07e15db6f1..b938db6c82b 100644
--- a/lisp/emacs-lisp/regexp-opt.el
+++ b/lisp/emacs-lisp/regexp-opt.el
@@ -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.