From 0aad4805af57b4a1286918ce01a9ce4032c0fec0 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Mon, 3 Jan 2000 09:18:54 +0000 Subject: [PATCH] (completion-setup-function): Count completion-size from minibuffer-prompt-end, not from point-min. --- lisp/ChangeLog | 5 +++++ lisp/simple.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5eae42f1c30..b72f077ee31 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2000-01-03 Eli Zaretskii + + * simple.el (completion-setup-function): Count completion-size + from minibuffer-prompt-end, not from point-min. + 2000-01-02 Eli Zaretskii * faces.el (read-face-attribute, defined-colors, color-defined-p): diff --git a/lisp/simple.el b/lisp/simple.el index ec8b0f73097..222151c24e5 100644 --- 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]+\\*\\'" -- 2.39.5