diff options
| author | Kenichi Handa <handa@m17n.org> | 2001-01-27 01:51:04 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2001-01-27 01:51:04 +0000 |
| commit | 83600a298b7cb63a9a73ed3bbddbd7743a7186f9 (patch) | |
| tree | 80fd633bbb905e8d54b083c961c23b937f2a1b89 | |
| parent | 17d90d6bfabe308e60a750ec522db71a2290b73a (diff) | |
| download | emacs-83600a298b7cb63a9a73ed3bbddbd7743a7186f9.tar.gz | |
(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.
| -rw-r--r-- | lisp/international/quail.el | 11 |
1 files 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 |