Mercurial > emacs

changeset 29129:1fad86b8adfc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(quail-show-guidance-buf): Set current-input-method of the guidance buffer to the name of the curren input method.
author Kenichi Handa <handa@m17n.org>
date Tue, 23 May 2000 23:42:38 +0000
parents 765f6698675f
children b37210b05707
files lisp/international/quail.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/quail.el	Tue May 23 23:23:15 2000 +0000
+++ b/lisp/international/quail.el	Tue May 23 23:42:38 2000 +0000
@@ -1510,11 +1510,12 @@
     ;; 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)