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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2319aa87f2937213e36a6118408cd6d27778593a..5864f61403b2aef4bc8a3aa3f92bb7adedd9cba8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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>
 

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index a696fff7dc7d540b8f3fc900311a0e5792174533..669ea58656d737bfd2c9dbb6b829b7beace624ee 100644 (file)
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -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))