(completion-setup-function): Count completion-size

from minibuffer-prompt-end, not from point-min.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5eae42f1c3096b898227b3f260c7e07b6c50d961..b72f077ee3162ccf0f80684e8d669188d2159fa8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-01-03  Eli Zaretskii  <eliz@is.elta.co.il>
+
+       * simple.el (completion-setup-function): Count completion-size
+       from minibuffer-prompt-end, not from point-min.
+
 2000-01-02  Eli Zaretskii  <eliz@is.elta.co.il>
 
        * faces.el (read-face-attribute, defined-colors, color-defined-p):

diff --git a/lisp/simple.el b/lisp/simple.el
index ec8b0f73097d1176cf94228d010c7248d7c83be8..222151c24e58e36b73b59f305ab21bebb1571ede 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3894,7 +3894,7 @@ The completion list buffer is available as the value of `standard-output'.")
                  (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]+\\*\\'"