diff lisp/descr-text.el @ 57181:8818a855274d

(describe-char): Checking of quail activation fixed.
author Kenichi Handa <handa@m17n.org>
date Tue, 21 Sep 2004 02:26:24 +0000
parents da7a694d2097
children 6d1cf277e127 0796fc36c2bd
line wrap: on
line diff
--- a/lisp/descr-text.el	Tue Sep 21 02:25:16 2004 +0000
+++ b/lisp/descr-text.el	Tue Sep 21 02:26:24 2004 +0000
@@ -525,7 +525,8 @@
 		    (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"