From: Kenichi Handa <handa@m17n.org>
Date: Wed, 12 Mar 2003 02:37:07 +0000 (+0000)
Subject: (quail-show-guidance-buf): Make the quail
X-Git-Tag: ttn-vms-21-2-B4~10943
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=04c114e57ff337fa584098a133d3f7bd0c90258c;p=emacs.git

(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 545809d7bdd..81a991263fa 100644
--- 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