[Emacs-diffs] Changes to emacs/lisp/international/quail.el

[Miles Bader]

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