# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 941672997 0
# Node ID 6063383b77d5c9d9f14f6bcd0c9e41857f456046
# Parent  f1ae5b57d9db55a29f53693917bee1e76282758c
(PC-do-completion): Use minibuffer-prompt-end to
find the start of the text.  Use field-string to read the user
input.

diff -r f1ae5b57d9db -r 6063383b77d5 lisp/complete.el
--- a/lisp/complete.el	Wed Nov 03 23:13:10 1999 +0000
+++ b/lisp/complete.el	Wed Nov 03 23:49:57 1999 +0000
@@ -370,7 +370,7 @@
 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 @@
 
 		  ;; 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