[Emacs-diffs] /srv/bzr/emacs/trunk r108197: * lisp/minibuffer.el (completion--twq-all): Again, allow case differences.

[Stefan Monnier]

------------------------------------------------------------
revno: 108197
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Fri 2012-05-11 13:11:03 -0400
message:
  * lisp/minibuffer.el (completion--twq-all): Again, allow case differences.
modified:
  lisp/ChangeLog
  lisp/minibuffer.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-05-11 15:05:03 +0000
+++ b/lisp/ChangeLog    2012-05-11 17:11:03 +0000
@@ -1,5 +1,7 @@
 2012-05-11  Stefan Monnier  <address@hidden>
 
+       * 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.

=== modified file 'lisp/minibuffer.el'
--- a/lisp/minibuffer.el        2012-05-03 19:54:07 +0000
+++ b/lisp/minibuffer.el        2012-05-11 17:11:03 +0000
@@ -519,9 +519,10 @@
          (`(,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