From: Kenichi Handa <handa@m17n.org>
Date: Tue, 23 May 2000 23:42:38 +0000 (+0000)
Subject: (quail-show-guidance-buf): Set
X-Git-Tag: emacs-pretest-21.0.90~3770
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0327da63bc45d361f39404ce0ff5d940dd9b2b51;p=emacs.git

(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 914e0dc0ab1..03a46d45aa3 100644
--- 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)