diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-05-11 13:11:03 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-05-11 13:11:03 -0400 |
| commit | dbacb4bd91bc53a168dea2c4d0bf2c90a301e4dd (patch) | |
| tree | 9aefa73ba3f389bb0b4adf2e7c65680dfd4dfd75 /lisp/minibuffer.el | |
| parent | 13bdd94c38a54955327db0d432971c18392f60f9 (diff) | |
| download | emacs-dbacb4bd91bc53a168dea2c4d0bf2c90a301e4dd.tar.gz emacs-dbacb4bd91bc53a168dea2c4d0bf2c90a301e4dd.tar.bz2 emacs-dbacb4bd91bc53a168dea2c4d0bf2c90a301e4dd.zip | |
* lisp/minibuffer.el (completion--twq-all): Again, allow case differences.
Diffstat (limited to 'lisp/minibuffer.el')
| -rw-r--r-- | lisp/minibuffer.el | 7 |
1 files changed, 4 insertions, 3 deletions
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 |