Commit 31d24a4b authored by Johan Bockgård's avatar Johan Bockgård
Browse files

(PC-do-completion): Use regexp-quote.

parent 920fb2b0
2008-03-26 Johan Bockg$(Q)[(Brd <bojohan@gnu.org>
* complete.el (PC-do-completion): Use regexp-quote.
2008-03-26 Dan Nicolaescu <dann@ics.uci.edu>
 
* vc-cvs.el (vc-cvs-parse-status, vc-cvs-after-dir-status): Detect
......
......@@ -621,8 +621,10 @@ GOTO-END is non-nil, however, it instead replaces up to END."
(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!
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment