Commit f7ae6719 authored by Stefan Monnier's avatar Stefan Monnier

* minibuffer.el (completion--twq-all): Beware completion-ignore-case.

parent 47086495
2012-05-03 Stefan Monnier <monnier@iro.umontreal.ca>
* minibuffer.el (completion--twq-all): Beware completion-ignore-case.
2012-05-03 Wilson Snyder <wsnyder@wsnyder.org>
* progmodes/verilog-mode.el (font-lock-keywords):
......
......@@ -546,16 +546,19 @@ for use at QPOS."
;; which only get quoted when needed by choose-completion.
(nconc
(mapcar (lambda (completion)
(assert (string-prefix-p prefix completion))
(assert (string-prefix-p prefix completion 'ignore-case) t)
(let* ((new (substring completion (length prefix)))
(qnew (funcall qfun new))
(qcompletion (concat qprefix qnew)))
(assert
(equal (funcall unquote
(eq t (compare-strings
(funcall unquote
(concat (substring string 0 qboundary)
qcompletion))
nil nil
(concat (substring ustring 0 boundary)
completion)))
completion)
nil nil 'ignore-case)))
qcompletion))
completions)
qboundary))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment