Mercurial > emacs

changeset 50088:2fdc3bbb00ae

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(quail-show-guidance-buf): Make the quail guidance buffer inherit the current value of quail-current-package.
author Kenichi Handa <handa@m17n.org>
date Wed, 12 Mar 2003 02:37:07 +0000
parents 0c57c8ee18be
children f302927f8302
files lisp/international/quail.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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