Mercurial > hg > xemacs-beta

comparison lisp/leim/quail.el @ 177:6075d714658b r20-3b15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b15
author cvs
date Mon, 13 Aug 2007 09:51:16 +0200
parents 15872534500d
children acd284d43ca1
comparison
equal deleted inserted replaced
176:6866abce6aaf 177:6075d714658b
1479 ;; List all possible translations of KEY in Quail map MAP with 1479 ;; List all possible translations of KEY in Quail map MAP with
1480 ;; indentation INDENT. 1480 ;; indentation INDENT.
1481 (defun quail-completion-list-translations (map key indent) 1481 (defun quail-completion-list-translations (map key indent)
1482 (let ((translations 1482 (let ((translations
1483 (quail-get-translation (car map) key (length key)))) 1483 (quail-get-translation (car map) key (length key))))
1484 (if (integerp translations) 1484 (if (characterp translations)
1485 (insert "(1/1) 1." translations "\n") 1485 (insert "(1/1) 1." translations "\n")
1486 ;; We need only vector part. 1486 ;; We need only vector part.
1487 (setq translations (cdr translations)) 1487 (setq translations (cdr translations))
1488 ;; Insert every 10 elements with indices in a line. 1488 ;; Insert every 10 elements with indices in a line.
1489 (let ((len (length translations)) 1489 (let ((len (length translations))