# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1047436627 0
# Node ID 2fdc3bbb00ae012a72f1f72475aa79ce4baaf8f9
# Parent  0c57c8ee18be71943935eee58de4d8eb5cd8acea
(quail-show-guidance-buf): Make the quail
guidance buffer inherit the current value of
quail-current-package.

diff -r 0c57c8ee18be -r 2fdc3bbb00ae lisp/international/quail.el
--- a/lisp/international/quail.el	Wed Mar 12 02:36:50 2003 +0000
+++ b/lisp/international/quail.el	Wed Mar 12 02:37:07 2003 +0000
@@ -1912,12 +1912,12 @@
     (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