Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages 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
Show stats 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