(quail-show-guidance-buf): Make the quail

guidance buffer inherit the current value of
quail-current-package.

diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index 545809d7bddde41ea89dcf39c57b314e209d7df2..81a991263fa3eaec14e31789448f62d8eadc475a 100644 (file)
--- a/lisp/international/quail.el
+++ b/lisp/international/quail.el
@@ -1912,12 +1912,12 @@ or in a newly created frame (if the selected frame has no other windows)."
     (let ((default-enable-multibyte-characters enable-multibyte-characters))
       (or (buffer-live-p quail-guidance-buf)
          (setq quail-guidance-buf (generate-new-buffer " *Quail-guidance*"))))
-    (let ((name (quail-name))
-         (title (quail-title)))
+    (let ((package quail-current-package))
       (with-current-buffer quail-guidance-buf
        ;; To show the title of Quail package.
-       (setq current-input-method name
-             current-input-method-title title)
+       (setq quail-current-package package
+             current-input-method (quail-name)
+             current-input-method-title (quail-title))
        (erase-buffer)
        (or (overlayp quail-overlay)
            (progn