From: Kenichi Handa <handa@m17n.org>
Date: Tue, 21 Sep 2004 02:26:24 +0000 (+0000)
Subject: (describe-char): Checking of quail activation
X-Git-Tag: ttn-vms-21-2-B4~4849
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=22259c9379683d5580e238e48af3f58b8ff986d9;p=emacs.git

(describe-char): Checking of quail activation
fixed.
---

diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index c4758a081ce..8ac2d36334b 100644
--- a/lisp/descr-text.el
+++ b/lisp/descr-text.el
@@ -525,7 +525,8 @@ as well as widgets, buttons, overlays, and text properties."
 		    (push (format "%s;" (pop props)) ps))
 		  (list (cons "Properties" (nreverse ps)))))
 	    ("to input"
-	     ,@(let ((key-list (and current-input-method
+	     ,@(let ((key-list (and (eq input-method-function
+					'quail-input-method)
 				    (quail-find-key char))))
 		 (if (consp key-list)
 		     (list "type"