From f7ae6719123ad5f4f505290621810318d9ee5484 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 3 May 2012 15:54:07 -0400 Subject: [PATCH] * minibuffer.el (completion--twq-all): Beware completion-ignore-case. --- lisp/ChangeLog | 4 ++++ lisp/minibuffer.el | 9 ++++++--- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 96273f72ece..b75a6606779 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2012-05-03 Stefan Monnier + + * minibuffer.el (completion--twq-all): Beware completion-ignore-case. + 2012-05-03 Wilson Snyder * progmodes/verilog-mode.el (font-lock-keywords): diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index 1d459b0db62..f468db9768a 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el @@ -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)))) -- 2.39.2