Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 22:07:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source
This commit is contained in:
Kenichi Handa 2002-09-24 04:15:02 +00:00
parent ddd73e0b23
commit d5ec6a2da4
2 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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.

5
lisp/international/quail.el
View file

@ -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)