Commit 158bc55c authored by Stephen Berman's avatar Stephen Berman Committed by Stefan Monnier
Browse files

* lisp/minibuffer.el (completion--twq-all): Try and preserve each

completion's case choice.

Fixes: debbugs:14907
parent ac38e731
2013-07-30 Stephen Berman <stephen.berman@gmx.net>
* minibuffer.el (completion--twq-all): Try and preserve each
completion's case choice (bug#14907).
2013-07-30 Lars Magne Ingebrigtsen <larsi@gnus.org>
* net/network-stream.el (open-network-stream): Mention the new
......
......@@ -568,6 +568,17 @@ for use at QPOS."
(cl-assert (string-prefix-p prefix completion 'ignore-case) t)
(let* ((new (substring completion (length prefix)))
(qnew (funcall qfun new))
(qprefix
(if (not completion-ignore-case)
qprefix
;; Make qprefix inherit the case from `completion'.
(let* ((rest (substring completion
0 (length prefix)))
(qrest (funcall qfun rest)))
(if (completion--string-equal-p qprefix qrest)
(propertize qrest 'face
'completions-common-part)
qprefix))))
(qcompletion (concat qprefix qnew)))
;; FIXME: Similarly here, Cygwin's mapping trips this
;; assertion.
......
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