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

(quail-completion): Consecutive call of

Browse source 
this command scrolls the Quail completion buffer.
This commit is contained in:
Kenichi Handa 1998-05-18 01:01:00 +00:00
parent bb9c978adc
commit 0548a7fdc2
1 changed files with 23 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
lisp/international/quail.el
View file

@ -1637,16 +1637,31 @@ All possible translations of the current key and whole possible longer keys
are shown."
(interactive)
(quail-setup-completion-buf)
(let ((key quail-current-key)
(map (quail-lookup-key quail-current-key)))
(let ((win (get-buffer-window quail-completion-buf 'visible))
(key quail-current-key)
(map (quail-lookup-key quail-current-key))
(require-update nil))
(save-excursion
(set-buffer quail-completion-buf)
(erase-buffer)
(insert "Possible completion and corresponding translations are:\n")
(quail-completion-1 key map 1)
(goto-char (point-min))
(display-buffer (current-buffer)))
(quail-update-guidance)))
(if (and win
(equal key quail-current-key)
(eq last-command 'quail-completion))
;; The window for Quail completion buffer has already been
;; 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))
(scroll-other-window)))
(setq quail-current-key key)
(erase-buffer)
(insert "Possible completion and corresponding translations are:\n")
(quail-completion-1 key map 1)
(goto-char (point-min))
(display-buffer (current-buffer))
(setq require-update t)))
(if require-update
(quail-update-guidance)))
(setq this-command 'quail-completion))
;; List all completions of KEY in MAP with indentation INDENT.
(defun quail-completion-1 (key map indent)