# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1228201715 0
# Node ID f2e50678d85ab4a46a92e016b7d881497c548b71
# Parent  3a36c6c70cadcf624d8919959f02d0b62b213239
(PC-do-completion): Fix leftover bug from Emacs-21 when
the prompt was added to the minibuffer.

diff -r 3a36c6c70cad -r f2e50678d85a lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Dec 02 03:40:15 2008 +0000
+++ b/lisp/ChangeLog	Tue Dec 02 07:08:35 2008 +0000
@@ -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 -r 3a36c6c70cad -r f2e50678d85a lisp/complete.el
--- a/lisp/complete.el	Tue Dec 02 03:40:15 2008 +0000
+++ b/lisp/complete.el	Tue Dec 02 07:08:35 2008 +0000
@@ -799,7 +799,8 @@
 		(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)))