martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* lisp/minibuffer.el (completion--twq-all): Again, allow case differences.

Browse Source
This commit is contained in:
Stefan Monnier
2012-05-11 13:11:03 -04:00
parent 13bdd94c38
commit dbacb4bd91
2 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ChangeLog
View File

@@ -1,5 +1,7 @@
2012-05-11 Stefan Monnier <monnier@iro.umontreal.ca>
* 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.

7
lisp/minibuffer.el
View File

@@ -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