Function: quail-completion
quail-completion is an interactive and byte-compiled function defined
in quail.el.gz.
Signature
(quail-completion)
Documentation
List all completions for the current key.
All possible translations of the current key and whole possible longer keys
are shown (at most to the depth specified quail-completion-max-depth).
Key Bindings
Source Code
;; Defined in /usr/src/emacs/lisp/international/quail.el.gz
(defun quail-completion ()
"List all completions for the current key.
All possible translations of the current key and whole possible longer keys
are shown (at most to the depth specified `quail-completion-max-depth')."
(interactive)
(quail-setup-completion-buf)
(let ((win (get-buffer-window quail-completion-buf 'visible))
(key quail-current-key)
(map (quail-lookup-key quail-current-key nil t))
(require-update nil))
(with-current-buffer quail-completion-buf
(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)
;; This nil binding is necessary to surely scroll
;; quail-completion-buf.
(minibuffer-scroll-window nil))
(scroll-other-window)))
(setq quail-current-key key)
(let ((inhibit-read-only t))
(erase-buffer)
(insert "Possible completion and corresponding characters are:\n")
(quail-completion-1 key map 1)
(set-buffer-modified-p nil))
(goto-char (point-min))
(display-buffer (current-buffer))
(setq require-update t)))
(if require-update
(quail-update-guidance)))
(setq this-command 'quail-completion))