From 83600a298b7cb63a9a73ed3bbddbd7743a7186f9 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Sat, 27 Jan 2001 01:51:04 +0000 Subject: (quail-setup-completion-buf): Make the 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. --- lisp/international/quail.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/lisp/international/quail.el b/lisp/international/quail.el index 46e14592010..4303edc011b 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el @@ -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 -- cgit v1.2.3