(quail-completion): Be sure to scroll quail-completion-buf.

2 files changed, 9 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b00af99ad7e..9f58dcccddc 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-09-23  Kenichi Handa  <handa@etl.go.jp>
+
+        * international/quail.el (quail-completion): Be sure to scroll
+        quail-completion-buf.
+
 2002-09-23  Richard M. Stallman  <rms@gnu.org>
 
         * ielm.el (*1): Fix previous change.
diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index d0017e8bf21..f56200b555a 100644
--- a/lisp/international/quail.el
+++ b/lisp/international/quail.el
@@ -2124,7 +2124,10 @@ are shown (at most to the depth specified `quail-completion-max-depth')."
           ;; 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)