# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 970358929 0
# Node ID a055173cadf88b5351d8ec9aba7b0ebc455e3626
# Parent  02773dbde247898b1a51fc28cf477e5e44e7ab6a
(regexp-opt-group): Put more parenthesis.

diff -r 02773dbde247 -r a055173cadf8 lisp/emacs-lisp/regexp-opt.el
--- a/lisp/emacs-lisp/regexp-opt.el	Sat Sep 30 17:03:27 2000 +0000
+++ b/lisp/emacs-lisp/regexp-opt.el	Sun Oct 01 00:08:49 2000 +0000
@@ -187,10 +187,10 @@
 	    ;; 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 @@
 		;; 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.