From 9011078f9df40965a6ef3cade5bba3e5d0eb730d Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Tue, 11 Sep 2012 19:43:21 +0200 Subject: [PATCH] Fix 2012-09-11T14:06:33Z!bastien1@free.fr. --- lisp/minibuffer.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index 669ea58656d..27c53744d54 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el @@ -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)) -- 2.39.2