diff options
| author | Kenichi Handa <handa@m17n.org> | 2004-05-12 02:36:01 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2004-05-12 02:36:01 +0000 |
| commit | 309473d014bf6a1cbdb3c695bef3f9d3136aa7ee (patch) | |
| tree | 3af8332f034b9e843fcc107da57c6fe7b6fc75a0 /lisp/descr-text.el | |
| parent | ae9292e0cb5b40127e9b55ae8e02c29d13c35c74 (diff) | |
| download | emacs-309473d014bf6a1cbdb3c695bef3f9d3136aa7ee.tar.gz | |
Require quail at comile time.
(describe-char): If an input method is on and it supports the
character, show how to input it.
Diffstat (limited to 'lisp/descr-text.el')
| -rw-r--r-- | lisp/descr-text.el | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/descr-text.el b/lisp/descr-text.el index 6b4f18ff718..61ddf928f7e 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el @@ -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 @@ as well as widgets, buttons, overlays, and text properties." (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)) |