Mercurial > emacs
changeset 55543:7b6cb8aae6f3
Require quail at comile time.
(describe-char): If an input method is on and it supports the
character, show how to input it.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 12 May 2004 02:36:01 +0000 |
| parents | 09bfbc6e6c82 |
| children | 59e049798a0a |
| files | lisp/descr-text.el |
| diffstat | 1 files changed, 8 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/descr-text.el Wed May 12 02:34:57 2004 +0000 +++ b/lisp/descr-text.el Wed May 12 02:36:01 2004 +0000 @@ -28,7 +28,7 @@ ;;; Code: -(eval-when-compile (require 'button)) +(eval-when-compile (require 'button) (require 'quail)) (defun describe-text-done () "Delete the current window or bury the current buffer." @@ -524,6 +524,13 @@ (push (format "%s:" (pop props)) ps) (push (format "%s;" (pop props)) ps)) (list (cons "Properties" (nreverse ps))))) + ("to input" + ,@(let ((key-list (and current-input-method + (quail-find-key char)))) + (if (consp key-list) + (list "type" + (mapconcat #'(lambda (x) (concat "\"" x "\"")) + key-list " or "))))) ("buffer code" ,(encoded-string-description (string-as-unibyte (char-to-string char)) nil))