From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 30 Jul 1996 18:52:19 +0000 (+0000)
Subject: (PC-complete): When command is repeated,
X-Git-Tag: emacs-19.34~60
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=95c0d3a7dd4238b8bb68fade83006eda950b8da3;p=emacs.git

(PC-complete): When command is repeated,
scroll the completion buffer.
---

diff --git a/lisp/complete.el b/lisp/complete.el
index 69db58a985c..bbba4fd129e 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 ()