changeset 47591:5d173712d50a

(quail-completion): Be sure to scroll quail-completion-buf.
author Kenichi Handa <handa@m17n.org>
date Tue, 24 Sep 2002 04:12:55 +0000
parents 1efefab8bd92
children 8cf0546cad89
files lisp/international/quail.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/quail.el	Mon Sep 23 20:54:28 2002 +0000
+++ b/lisp/international/quail.el	Tue Sep 24 04:12:55 2002 +0000
@@ -2124,7 +2124,10 @@
 	  ;; shown.  We just scroll it appropriately.
 	  (if (pos-visible-in-window-p (point-max) win)
 	      (set-window-start win (point-min))
-	    (let ((other-window-scroll-buffer quail-completion-buf))
+	    (let ((other-window-scroll-buffer quail-completion-buf)
+		  ;; This nil binding is necessary to surely scroll
+		  ;; quail-completion-buf.
+		  (minibuffer-scroll-window nil))
 	      (scroll-other-window)))
 	(setq quail-current-key key)
 	(erase-buffer)