Function: quail-completion-1

quail-completion-1 is a byte-compiled function defined in quail.el.gz.

Signature

(quail-completion-1 KEY MAP INDENT)

Documentation

List all completions of KEY in MAP with indentation INDENT.

Source Code

;; Defined in /usr/src/emacs/lisp/international/quail.el.gz
(defun quail-completion-1 (key map indent)
  "List all completions of KEY in MAP with indentation INDENT."
  (let ((len (length key)))
    (quail-indent-to indent)
    (insert key ":")
    (if (and (symbolp map) (fboundp map))
	(setq map (funcall map key len)))
    (if (car map)
	(quail-completion-list-translations map key (+ indent len 1))
      (insert " -\n"))
    (setq indent (+ indent 2))
    (if (and (cdr map) (< (/ (1- indent) 2) quail-completion-max-depth))
	(let ((l (cdr map)))
	  (if (functionp l)
	      (setq l (funcall l)))
	  (dolist (elt (reverse l))     ; L = ((CHAR . DEFN) ....) ;
	    (quail-completion-1 (concat key (string (car elt)))
                                (cdr elt) indent))))))