Mercurial > emacs
comparison lisp/international/quail.el @ 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 | 5ec9521eeae0 |
| children | c4ddd9be9c17 |
comparison
equal
deleted
inserted
replaced
| 47590:1efefab8bd92 | 47591:5d173712d50a |
|---|---|
| 2122 (eq last-command 'quail-completion)) | 2122 (eq last-command 'quail-completion)) |
| 2123 ;; The window for Quail completion buffer has already been | 2123 ;; The window for Quail completion buffer has already been |
| 2124 ;; shown. We just scroll it appropriately. | 2124 ;; shown. We just scroll it appropriately. |
| 2125 (if (pos-visible-in-window-p (point-max) win) | 2125 (if (pos-visible-in-window-p (point-max) win) |
| 2126 (set-window-start win (point-min)) | 2126 (set-window-start win (point-min)) |
| 2127 (let ((other-window-scroll-buffer quail-completion-buf)) | 2127 (let ((other-window-scroll-buffer quail-completion-buf) |
| 2128 ;; This nil binding is necessary to surely scroll | |
| 2129 ;; quail-completion-buf. | |
| 2130 (minibuffer-scroll-window nil)) | |
| 2128 (scroll-other-window))) | 2131 (scroll-other-window))) |
| 2129 (setq quail-current-key key) | 2132 (setq quail-current-key key) |
| 2130 (erase-buffer) | 2133 (erase-buffer) |
| 2131 (insert "Possible completion and corresponding translations are:\n") | 2134 (insert "Possible completion and corresponding translations are:\n") |
| 2132 (quail-completion-1 key map 1) | 2135 (quail-completion-1 key map 1) |