diff options
| author | Kenichi Handa <handa@m17n.org> | 2002-09-24 04:12:55 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2002-09-24 04:12:55 +0000 |
| commit | a7be48b06d205d5f574d010c6f9b5e7c7257bfc0 (patch) | |
| tree | 5b7f9654c1cc9359d5723cea45d41732e596082c /lisp | |
| parent | 08ea0ae586d04230442f9b65e9ecd68bf40a1fdb (diff) | |
| download | emacs-a7be48b06d205d5f574d010c6f9b5e7c7257bfc0.tar.gz | |
(quail-completion): Be sure to scroll quail-completion-buf.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/international/quail.el | 5 |
1 files changed, 4 insertions, 1 deletions
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) |