andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix 2012-09-11T14:06:33Z!bastien1@free.fr.

Browse source
This commit is contained in:
Bastien Guerry 2012-09-11 19:43:21 +02:00
parent c4c9756b17
commit 9011078f9d
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/minibuffer.el
View file

@ -213,8 +213,8 @@ case sensitive instead."
(defun completion-table-subvert (table s1 s2)
"Return a completion table from TABLE with S1 replaced by S2.
The result is a completion table which completes strings of the
form (concat S2 S) in the same way as TABLE completes strings of
the form (concat S1 S)."
form (concat S1 S) in the same way as TABLE completes strings of
the form (concat S2 S)."
(lambda (string pred action)
(let* ((str (if (eq t (compare-strings string 0 (length s1) s1 nil nil
completion-ignore-case))