From: Kenichi Handa <handa@m17n.org>
Date: Thu, 21 Dec 2000 01:57:24 +0000 (+0000)
Subject: (describe-char-after): Make *Help*
X-Git-Tag: emacs-pretest-21.0.95~364
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e360ac5bee4b090f94e54363e514d58705d49f1a;p=emacs.git

(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 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)))