Commit 9011078f authored by Bastien Guerry's avatar Bastien Guerry
Browse files

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

parent c4c9756b
......@@ -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))
......
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