# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1032840775 0
# Node ID 5d173712d50ad6e8aaa152b5294d2e64942fef40
# Parent  1efefab8bd924793f1eecb957ddb1a3e62e6691e
(quail-completion): Be sure to scroll quail-completion-buf.

diff -r 1efefab8bd92 -r 5d173712d50a lisp/international/quail.el
--- 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)