(describe-char): Checking of quail activation

fixed.

diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index c4758a081ceb96441ef1d3aff2b13737cf77dc71..8ac2d36334bee676e067277daf393aed87b386dc 100644 (file)
--- 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"