From e360ac5bee4b090f94e54363e514d58705d49f1a Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Thu, 21 Dec 2000 01:57:24 +0000 Subject: [PATCH] (describe-char-after): Make *Help* buffer inherit multibyteness of the current buffer. --- lisp/international/mule-diag.el | 2 ++ 1 file changed, 2 insertions(+) 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))) -- 2.39.2