From 04c114e57ff337fa584098a133d3f7bd0c90258c Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 12 Mar 2003 02:37:07 +0000 Subject: [PATCH] (quail-show-guidance-buf): Make the quail guidance buffer inherit the current value of quail-current-package. --- lisp/international/quail.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/international/quail.el b/lisp/international/quail.el index 545809d7bdd..81a991263fa 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el @@ -1912,12 +1912,12 @@ or in a newly created frame (if the selected frame has no other windows)." (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 -- 2.39.2