procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(completion-pcm--pattern->regex): When completion-ignore-case is

Browse source 
non-nil, generate a regexp that ignores case.
This commit is contained in:
Chong Yidong 2008-09-01 21:34:23 +00:00
parent 36f95f7755
commit 1353c8da70
1 changed files with 11 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lisp/minibuffer.el
View file

@ -1381,12 +1381,17 @@ or a symbol chosen among `any', `star', `point'."
(mapconcat
(lambda (x)
(case x
((star any point)
(if (if (consp group) (memq x group) group)
"\\(.*?\\)" ".*?"))
(t (regexp-quote x))))
pattern
""))))
((star any point)
(if (if (consp group) (memq x group) group)
"\\(.*?\\)"
".*?"))
(t
(if (and completion-ignore-case
(string-match "[[:alpha:]]" x))
(format "[%s%s]" (downcase x) (upcase x))
(regexp-quote x)))))
pattern
""))))
;; Avoid pathological backtracking.
(while (string-match "\\.\\*\\?\\(?:\\\\[()]\\)*\\(\\.\\*\\?\\)" re)
(setq re (replace-match "" t t re 1)))