(quail-help): Use set-buffer-multibyte rather than

setting default-enable-multibyte-characters.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8737f2be0bbb6055e2441d182aa8c23254f71171..b6b4f8df0dac61d528d3c9b0b44d031a02fa4bcf 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,6 @@
 2008-03-12  Stefan Monnier  <monnier@iro.umontreal.ca>
 
-       * international/quail.el (quail-setup-completion-buf):
+       * international/quail.el (quail-setup-completion-buf, quail-help):
        * mail/binhex.el (binhex-decode-region-internal):
        * mail/uudecode.el (uudecode-decode-region-internal):
        * net/dns.el (dns-read-string-name, dns-read, dns-read-type, query-dns):

diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index 0c8d5e4bff469c21f215df0aa1b7234c2080153f..90466f57cddb878727f463f214104cad3f0f31e3 100644 (file)
--- a/lisp/international/quail.el
+++ b/lisp/international/quail.el
@@ -2448,7 +2448,7 @@ package to describe."
   (interactive)
   (quail-help-init)
   (let ((help-xref-mule-regexp help-xref-mule-regexp-template)
-       (default-enable-multibyte-characters enable-multibyte-characters)
+       (mb enable-multibyte-characters)
        (package-def
         (if package
             (assoc package quail-package-alist)
@@ -2457,6 +2457,7 @@ package to describe."
     (let ((temp-buffer-show-hook nil))
       (with-output-to-temp-buffer (help-buffer)
        (with-current-buffer standard-output
+          (set-buffer-multibyte mb)
          (setq quail-current-package package-def))))
     ;; Then, insert text in the help buffer while paying attention to
     ;; the width of the window in which the buffer displayed.