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

buffer inherit multibyteness of the current buffer.

1 files changed, 2 insertions, 0 deletions

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 77ed1b9cfb0..4ed5fe165fe 100644
--- 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)))