Commit 309473d0 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

Require quail at comile time.

(describe-char): If an input method is on and it supports the
character, show how to input it.
parent ae9292e0
......@@ -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"
(string-as-unibyte (char-to-string char)) nil))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment