From dbacb4bd91bc53a168dea2c4d0bf2c90a301e4dd Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 11 May 2012 13:11:03 -0400 Subject: [PATCH] * lisp/minibuffer.el (completion--twq-all): Again, allow case differences. --- lisp/ChangeLog | 2 ++ lisp/minibuffer.el | 7 ++++--- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 246906df9f9..f54e2da78f1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2012-05-11 Stefan Monnier + * minibuffer.el (completion--twq-all): Again, allow case differences. + * term.el: Move keymap initialization code to be more idiomatic. (term-signals-menu, term-mode-map, term-raw-map, term-raw-escape-map) (term-terminal-menu): Move initialization into declaration. diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index f468db9768a..60a70fbcce7 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el @@ -519,9 +519,10 @@ for use at QPOS." (`(,qfullpos . ,qfun) (funcall requote (+ boundary (length prefix)) string)) (qfullprefix (substring string 0 qfullpos)) - (_ (assert (let ((uboundarystr (substring ustring 0 boundary))) - (equal (funcall unquote qfullprefix) - (concat uboundarystr prefix))))) + (_ (assert (eq t (compare-strings + (funcall unquote qfullprefix) nil nil + (concat (substring ustring 0 boundary) prefix) + nil nil 'ignore-case)))) (qboundary (car (funcall requote boundary string))) (_ (assert (<= qboundary qfullpos))) ;; FIXME: this split/quote/concat business messes up the carefully -- 2.39.2