mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

Require quail at comile time.

Browse Source 
(describe-char): If an input method is on and it supports the
character, show how to input it.
This commit is contained in:
Kenichi Handa 2004-05-12 02:36:01 +00:00
parent ae9292e0cb
commit 309473d014
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/descr-text.el
View File

@ -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))