[Emacs-diffs] Changes to emacs/lisp/complete.el,v

[Johan Bockgård]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Johan Bockgård <bojohan>       08/03/26 11:50:36

Index: complete.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/complete.el,v
retrieving revision 1.82
retrieving revision 1.83
diff -u -b -r1.82 -r1.83
--- complete.el 8 Jan 2008 20:44:49 -0000       1.82
+++ complete.el 26 Mar 2008 11:50:33 -0000      1.83
@@ -621,7 +621,9 @@
                                                    (match-string 2 str)
                                                    "[A-Za-z0-9]*[^A-Za-z0-9]"))
                           p (1+ (length (match-string 1 str))))))
-                (setq regex (concat "\\`" (mapconcat #'list str "[^-]*-"))
+             (setq regex (concat "\\`" (mapconcat (lambda (c)
+                                                    (regexp-quote (string c)))
+                                                  str "[^-]*-"))
                       p 1))))
         (when p
        ;; Use all-completions to do an initial cull.  This is a big win,