(PC-do-completion): Use minibuffer-prompt-end to

find the start of the text.  Use field-string to read the user
input.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 48e3cacb3a898750ec1bb4b83aee5bccee44b92a..a73988eb4be13d6d9a8cb1ca3a91c1717c6ca001 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+1999-11-04  Gerd Moellmann  <gerd@gnu.org>
+
+       * complete.el (PC-do-completion): Use minibuffer-prompt-end to
+       find the start of the text.  Use field-string to read the user
+       input.
+
 1999-11-03  Gerd Moellmann  <gerd@gnu.org>
 
        * faces.el (make-face-bold, make-face-unbold, make-face-italic)

diff --git a/lisp/complete.el b/lisp/complete.el
index c755f725c57b854e40e3083207ba0fd90078c53f..5d457e270698de63d62b3942bafba70c535fe78c 100644 (file)
--- a/lisp/complete.el
+++ b/lisp/complete.el
@@ -370,7 +370,7 @@ The function takes no arguments, and typically looks at the value
 of `minibuffer-completion-table' and the minibuffer contents.")
 
 (defun PC-do-completion (&optional mode beg end)
-  (or beg (setq beg (point-min)))
+  (or beg (setq beg (minibuffer-prompt-end)))
   (or end (setq end (point-max)))
   (let* ((table minibuffer-completion-table)
         (pred minibuffer-completion-predicate)
@@ -646,7 +646,7 @@ of `minibuffer-completion-table' and the minibuffer contents.")
 
                  ;; We changed it... enough to be complete?
                  (and (eq mode 'exit)
-                      (PC-is-complete-p (buffer-string) table pred))
+                      (PC-is-complete-p (field-string) table pred))
 
                ;; If totally ambiguous, display a list of completions
                (if (or completion-auto-help