mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-27 19:31:38 +00:00
Code Issues Releases Activity

(quail-show-guidance-buf): Set

Browse Source 
current-input-method of the guidance buffer to the name of the
curren input method.
This commit is contained in:
Kenichi Handa 2000-05-23 23:42:38 +00:00
parent e6b6fc1864
commit 0327da63bc
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/international/quail.el
View File

@ -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)