# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1084329361 0
# Node ID 7b6cb8aae6f3915146ff9b11502a6e186e698368
# Parent  09bfbc6e6c828a9b9f1f4d53e0f094dfee41aafa
Require quail at comile time.
(describe-char): If an input method is on and it supports the
character, show how to input it.

diff -r 09bfbc6e6c82 -r 7b6cb8aae6f3 lisp/descr-text.el
--- 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))