From: Kenichi Handa Date: Tue, 24 Sep 2002 04:15:02 +0000 (+0000) Subject: (quail-completion): Be sure to scroll quail-completion-buf. X-Git-Tag: ttn-vms-21-2-B4~13079 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d5ec6a2da4b2138be6bf183b797eed40291dc89e;p=emacs.git (quail-completion): Be sure to scroll quail-completion-buf. --- 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 + + * international/quail.el (quail-completion): Be sure to scroll + quail-completion-buf. + 2002-09-23 Richard M. Stallman * 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)