(describe-char-after): Make *Help*

buffer inherit multibyteness of the current buffer.

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 77ed1b9cfb0365a9d3f7fcbd28ad4d029dd55972..4ed5fe165feac18aeee960e8d382cd3869957615 100644 (file)
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -525,6 +525,7 @@ which font is being used for displaying the character."
         (composition (find-composition (point) nil nil t))
         (composed (if composition (buffer-substring (car composition)
                                                     (nth 1 composition))))
+        (multibyte-p enable-multibyte-characters)
         item-list max-width)
     (if (eq charset 'unknown)
        (setq item-list
@@ -582,6 +583,7 @@ which font is being used for displaying the character."
     (with-output-to-temp-buffer "*Help*"
       (save-excursion
        (set-buffer standard-output)
+       (set-buffer-multibyte multibyte-p)
        (let ((formatter (format "%%%ds:" max-width)))
          (dolist (elt item-list)
            (insert (format formatter (car elt)))