mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-09 09:16:02 -08:00
Code Issues Projects Releases Wiki Activity

(quail-setup-completion-buf): Make the

Browse source 
multibyteness of current buffer inherited to Quail completion
buffer.
(quail-show-guidance-buf): Make the multibyteness of current
buffer inherited to Quail guidance buffer.
(quail-help): Make the multibyteness of current buffer inherited
to Quail help buffer.
This commit is contained in:
Kenichi Handa 2001-01-27 01:51:04 +00:00
parent 17d90d6bfa
commit 83600a298b
1 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/international/quail.el
View file

@ -1828,7 +1828,8 @@ Remaining args are for FUNC."
;; Setup Quail completion buffer.
(defun quail-setup-completion-buf ()
(unless (buffer-live-p quail-completion-buf)
(setq quail-completion-buf (get-buffer-create "*Quail Completions*"))
(let ((default-enable-multibyte-characters enable-multibyte-characters))
(setq quail-completion-buf (get-buffer-create "*Quail Completions*")))
(save-excursion
(set-buffer quail-completion-buf)
(setq quail-overlay (make-overlay 1 1))
@ -1854,8 +1855,9 @@ the bottom-most ordinary window of the same frame,
or in a newly created frame (if the selected frame has no other windows)."
(when (quail-require-guidance-buf)
;; At first, setup a guidance buffer.
(or (buffer-live-p quail-guidance-buf)
(setq quail-guidance-buf (generate-new-buffer " *Quail-guidance*")))
(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)))
(save-excursion
@ -2389,7 +2391,8 @@ package to describe."
(if package
(setq package (assoc package quail-package-alist))
(setq package quail-current-package))
(let ((help-xref-mule-regexp help-xref-mule-regexp-template))
(let ((help-xref-mule-regexp help-xref-mule-regexp-template)
(default-enable-multibyte-characters enable-multibyte-characters))
;; At first, make sure that the help buffer has window.
(with-output-to-temp-buffer "*Help*"
(save-excursion