[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/international/quail.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/international/quail.el |
Date: |
Fri, 04 Apr 2003 01:22:23 -0500 |
Index: emacs/lisp/international/quail.el
diff -c emacs/lisp/international/quail.el:1.126
emacs/lisp/international/quail.el:1.127
*** emacs/lisp/international/quail.el:1.126 Tue Feb 4 08:09:38 2003
--- emacs/lisp/international/quail.el Tue Mar 11 21:37:07 2003
***************
*** 1912,1923 ****
(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)))
(with-current-buffer quail-guidance-buf
;; To show the title of Quail package.
! (setq current-input-method name
! current-input-method-title title)
(erase-buffer)
(or (overlayp quail-overlay)
(progn
--- 1912,1923 ----
(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 ((package quail-current-package))
(with-current-buffer quail-guidance-buf
;; To show the title of Quail package.
! (setq quail-current-package package
! current-input-method (quail-name)
! current-input-method-title (quail-title))
(erase-buffer)
(or (overlayp quail-overlay)
(progn
- [Emacs-diffs] Changes to emacs/lisp/international/quail.el,
Miles Bader <=