From 95c0d3a7dd4238b8bb68fade83006eda950b8da3 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 30 Jul 1996 18:52:19 +0000 Subject: (PC-complete): When command is repeated, scroll the completion buffer. --- lisp/complete.el | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) (limited to 'lisp') diff --git a/lisp/complete.el b/lisp/complete.el index 69db58a985..bbba4fd129 100644 --- a/lisp/complete.el +++ b/lisp/complete.el @@ -178,7 +178,21 @@ Word-delimiters for the purposes of Partial Completion are \"-\", \"_\", (interactive) (if (PC-was-meta-key) (minibuffer-complete) - (PC-do-completion nil))) + ;; If the previous command was not this one, + ;; never scroll, always retry completion. + (or (eq last-command this-command) + (setq minibuffer-scroll-window nil)) + (let ((window minibuffer-scroll-window)) + ;; If there's a fresh completion window with a live buffer, + ;; and this command is repeated, scroll that window. + (if (and window (window-buffer window) + (buffer-name (window-buffer window))) + (save-excursion + (set-buffer (window-buffer window)) + (if (pos-visible-in-window-p (point-max) window) + (set-window-start window (point-min) nil) + (scroll-other-window))) + (PC-do-completion nil))))) (defun PC-complete-word () -- cgit v1.2.3