# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 977363844 0
# Node ID 14e6e9496603f36bd9091f73a8a13bcb50fcbb7a
# Parent  c5c48f98f3f290d75c0b4be0c9a8988ebd7f1656
(describe-char-after): Make *Help*
buffer inherit multibyteness of the current buffer.

diff -r c5c48f98f3f2 -r 14e6e9496603 lisp/international/mule-diag.el
--- a/lisp/international/mule-diag.el	Thu Dec 21 01:57:04 2000 +0000
+++ b/lisp/international/mule-diag.el	Thu Dec 21 01:57:24 2000 +0000
@@ -525,6 +525,7 @@
 	 (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 @@
     (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)))