(quail-show-guidance-buf): Set

current-input-method of the guidance buffer to the name of the
curren input method.

diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index 914e0dc0ab16ec3532ae6e53e097f908139d8edc..03a46d45aa3a9f818a70342265e6422be74fed9c 100644 (file)
--- a/lisp/international/quail.el
+++ b/lisp/international/quail.el
@@ -1510,11 +1510,12 @@ or in a newly created frame (if the selected frame has no other windows)."
     ;; At first, setup a guidance buffer.
     (or (buffer-live-p quail-guidance-buf)
        (setq quail-guidance-buf (generate-new-buffer " *Quail-guidance*")))
-    (let ((title (quail-title)))
+    (let ((name (quail-name))
+         (title (quail-title)))
       (save-excursion
        (set-buffer quail-guidance-buf)
        ;; To show the title of Quail package.
-       (setq current-input-method t
+       (setq current-input-method name
              current-input-method-title title)
        (erase-buffer)
        (or (overlayp quail-overlay)