Mercurial > hg > xemacs-beta

comparison lisp/leim/quail.el @ 215:1f0dabaa0855 r20-4b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b6
author cvs
date Mon, 13 Aug 2007 10:07:35 +0200
parents 78f53ef88e17
children
comparison
equal deleted inserted replaced
214:c5d88c05e1e9 215:1f0dabaa0855
792 (defmacro quail-define-rules (&rest rules) 792 (defmacro quail-define-rules (&rest rules)
793 "Define translation rules of the current Quail package. 793 "Define translation rules of the current Quail package.
794 Each argument is a list of KEY and TRANSLATION. 794 Each argument is a list of KEY and TRANSLATION.
795 KEY is a string meaning a sequence of keystrokes to be translated. 795 KEY is a string meaning a sequence of keystrokes to be translated.
796 TRANSLATION is a character, a string, a vector, a Quail map, or a function. 796 TRANSLATION is a character, a string, a vector, a Quail map, or a function.
797 It it is a character, it is the sole translation of KEY. 797 If it is a character, it is the sole translation of KEY.
798 If it is a string, each character is a candidate for the translation. 798 If it is a string, each character is a candidate for the translation.
799 If it is a vector, each element (string or character) is a candidate 799 If it is a vector, each element (string or character) is a candidate
800 for the translation. 800 for the translation.
801 In these cases, a key specific Quail map is generated and assigned to KEY. 801 In these cases, a key specific Quail map is generated and assigned to KEY.
802 802
1512 (if (buffer-live-p quail-guidance-buf) 1512 (if (buffer-live-p quail-guidance-buf)
1513 (let ((win-list (get-buffer-window-list quail-guidance-buf t t)) 1513 (let ((win-list (get-buffer-window-list quail-guidance-buf t t))
1514 win) 1514 win)
1515 (while win-list 1515 (while win-list
1516 (setq win (car win-list) win-list (cdr win-list)) 1516 (setq win (car win-list) win-list (cdr win-list))
1517 (if (eq win (minibuffer-window)) 1517 (if (window-minibuffer-p win)
1518 ;; We are using echo area for the guidance buffer. 1518 ;; We are using echo area for the guidance buffer.
1519 ;; Vacate it to the deepest minibuffer. 1519 ;; Vacate it to the deepest minibuffer.
1520 (set-window-buffer win 1520 (set-window-buffer win
1521 (format " *Minibuf-%d*" (minibuffer-depth))) 1521 (format " *Minibuf-%d*" (minibuffer-depth)))
1522 (if (eq win (frame-root-window (window-frame win))) 1522 (if (eq win (frame-root-window (window-frame win)))