mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

* minibuffer.el (completion-table-subvert): Fix docstring. (bug#12347)

Browse Source
This commit is contained in:
Bastien Guerry 2012-09-11 16:06:33 +02:00
parent 04e8abfa69
commit 96d0357142
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -1,6 +1,11 @@
2012-09-11 Bastien Guerry <bzg@gnu.org>
* help-fns.el (describe-variable): Fix typo.
* minibuffer.el (completion-table-subvert): Fix docstring.
(bug#12347)
2012-09-11 Bastien Guerry <bzg@gnu.org>
* help-fns.el (describe-variable): Fix typo. (bug#12346)
2012-09-10 Michael R. Mauger <mmaug@yahoo.com>

6
lisp/minibuffer.el
View File

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