[Emacs-diffs] /srv/bzr/emacs/trunk r109981: * minibuffer.el (completion-table-subvert): Fix docstring. (bug#12347)

[Bastien Guerry]

------------------------------------------------------------
revno: 109981
committer: Bastien Guerry <address@hidden>
branch nick: trunk
timestamp: Tue 2012-09-11 16:06:33 +0200
message:
  * minibuffer.el (completion-table-subvert): Fix docstring.  (bug#12347)
modified:
  lisp/ChangeLog
  lisp/minibuffer.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-09-11 13:43:06 +0000
+++ b/lisp/ChangeLog    2012-09-11 14:06:33 +0000
@@ -1,6 +1,11 @@
 2012-09-11  Bastien Guerry  <address@hidden>
 
-       * help-fns.el (describe-variable): Fix typo.
+       * minibuffer.el (completion-table-subvert): Fix docstring.
+       (bug#12347)
+
+2012-09-11  Bastien Guerry  <address@hidden>
+
+       * help-fns.el (describe-variable): Fix typo. (bug#12346)
 
 2012-09-10  Michael R. Mauger  <address@hidden>
 

=== modified file 'lisp/minibuffer.el'
--- a/lisp/minibuffer.el        2012-09-01 04:28:24 +0000
+++ b/lisp/minibuffer.el        2012-09-11 14:06:33 +0000
@@ -211,10 +211,10 @@
       (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))