(PC-do-completion): Fix leftover bug from Emacs-21 when

the prompt was added to the minibuffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2823fcf541f79f2d12aa33c103f4d19face67bf0..a2fdb6f9fd850dc3188d9d9a898e7e4b8cc0c30c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-12-02  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * complete.el (PC-do-completion): Fix leftover bug from Emacs-21 when
+       the prompt was added to the minibuffer.
+
 2008-12-02  Glenn Morris  <rgm@gnu.org>
 
        * format.el (format-write-file): Rewrite doc yet again.

diff --git a/lisp/complete.el b/lisp/complete.el
index b53addf209971a8b7b64fe94fa5ae1e2f7e3ef62..52b8fac577c932dc828579368298f87326c1fd0b 100644 (file)
--- a/lisp/complete.el
+++ b/lisp/complete.el
@@ -799,7 +799,8 @@ GOTO-END is non-nil, however, it instead replaces up to END."
                (if improved
 
                    ;; We changed it... would it be complete without the space?
-                   (if (test-completion (buffer-substring 1 (1- end))
+                   (if (test-completion (buffer-substring
+                                          (field-beginning) (1- end))
                                          table pred)
                        (delete-region (1- end) end)))