Mercurial > emacs

diff lisp/complete.el @ 93243:9ecf89702ffc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(PC-do-completion): Use regexp-quote.
author Johan Bockgård <bojohan@gnu.org>
date Wed, 26 Mar 2008 11:50:34 +0000
parents 107ccd98fa12
children 4dfdf555a78e
line wrap: on
line diff
--- a/lisp/complete.el	Wed Mar 26 07:15:05 2008 +0000
+++ b/lisp/complete.el	Wed Mar 26 11:50:34 2008 +0000
@@ -621,8 +621,10 @@
                                                    (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 "[^-]*-"))
-                      p 1))))
+	      (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,
 	;; since all-completions is written in C!