From 0327da63bc45d361f39404ce0ff5d940dd9b2b51 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 23 May 2000 23:42:38 +0000 Subject: [PATCH] (quail-show-guidance-buf): Set current-input-method of the guidance buffer to the name of the curren input method. --- lisp/international/quail.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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) -- 2.39.5