[Emacs-diffs] emacs/lisp ChangeLog complete.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        08/12/02 07:08:39

Modified files:
        lisp           : ChangeLog complete.el 

Log message:
        (PC-do-completion): Fix leftover bug from Emacs-21 when
        the prompt was added to the minibuffer.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.14901&r2=1.14902
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/complete.el?cvsroot=emacs&r1=1.91&r2=1.92

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.14901
retrieving revision 1.14902
diff -u -b -r1.14901 -r1.14902
--- ChangeLog   2 Dec 2008 03:36:25 -0000       1.14901
+++ ChangeLog   2 Dec 2008 07:08:35 -0000       1.14902
@@ -1,3 +1,8 @@
+2008-12-02  Stefan Monnier  <address@hidden>
+
+       * complete.el (PC-do-completion): Fix leftover bug from Emacs-21 when
+       the prompt was added to the minibuffer.
+
 2008-12-02  Glenn Morris  <address@hidden>
 
        * format.el (format-write-file): Rewrite doc yet again.

Index: complete.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/complete.el,v
retrieving revision 1.91
retrieving revision 1.92
diff -u -b -r1.91 -r1.92
--- complete.el 29 Nov 2008 21:41:11 -0000      1.91
+++ complete.el 2 Dec 2008 07:08:39 -0000       1.92
@@ -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)))