mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* minibuffer.el (completion--twq-all): Beware completion-ignore-case.

Browse source
This commit is contained in:
Stefan Monnier 2012-05-03 15:54:07 -04:00
parent 4708649574
commit f7ae671912
2 changed files with 10 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/minibuffer.el
View file

@ -546,16 +546,19 @@ for use at QPOS."
;; which only get quoted when needed by choose-completion.
(nconc
(mapcar (lambda (completion)
(assert (string-prefix-p prefix completion))
(assert (string-prefix-p prefix completion 'ignore-case) t)
(let* ((new (substring completion (length prefix)))
(qnew (funcall qfun new))
(qcompletion (concat qprefix qnew)))
(assert
(equal (funcall unquote
(eq t (compare-strings
(funcall unquote
(concat (substring string 0 qboundary)
qcompletion))
nil nil
(concat (substring ustring 0 boundary)
completion)))
completion)
nil nil 'ignore-case)))
qcompletion))
completions)
qboundary))))