# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 946891096 0
# Node ID e200e2db8e99428d8c688a1e1224cf6d82066c52
# Parent  7cc86d68ccf81fbb7545fe78f3de11b79c5132d3
(completion-setup-function): Count completion-size
from minibuffer-prompt-end, not from point-min.

diff -r 7cc86d68ccf8 -r e200e2db8e99 lisp/simple.el
--- a/lisp/simple.el	Mon Jan 03 05:26:02 2000 +0000
+++ b/lisp/simple.el	Mon Jan 03 09:18:16 2000 +0000
@@ -3894,7 +3894,7 @@
 		  (set-buffer mainbuf)
 		  (goto-char (point-max))
 		  (skip-chars-backward (format "^%c" directory-sep-char))
-		  (- (point) (point-min))))
+		  (- (point) (minibuffer-prompt-end))))
 	;; Otherwise, in minibuffer, the whole input is being completed.
 	(save-match-data
 	  (if (string-match "\\` \\*Minibuf-[0-9]+\\*\\'"