From 3aab6d061d318f7efc9c8ad8c63a6be2e8a38b9e Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 25 Sep 2002 08:11:03 +0000 Subject: [PATCH] (list-character-sets): Use the buffer name "*Character Set List*", not "*Help*". (list-charset-chars): Use the buffer name "*Character List*", not "*Help*". Display the current charset name in the modeline. --- lisp/international/mule-diag.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el index cee82fb6b50..c1d57bbf5d8 100644 --- a/lisp/international/mule-diag.el +++ b/lisp/international/mule-diag.el @@ -84,7 +84,7 @@ With prefix arg, the output format gets more cryptic, but still shows the full information." (interactive "P") (help-setup-xref (list #'list-character-sets arg) (interactive-p)) - (with-output-to-temp-buffer (help-buffer) + (with-output-to-temp-buffer "*Character Set List*" (with-current-buffer standard-output (if arg (list-character-sets-2) @@ -487,8 +487,14 @@ This can list both Emacs `official' (ISO standard) charsets and the characters encoded by various Emacs coding systems which correspond to PC `codepages' and other coded character sets. See `non-iso-charset-alist'." (interactive (list (read-charset "Character set: "))) - (with-output-to-temp-buffer "*Help*" + (with-output-to-temp-buffer "*Character List*" (with-current-buffer standard-output + (setq mode-line-format (copy-sequence mode-line-format)) + (let ((slot (memq 'mode-line-buffer-identification mode-line-format))) + (if slot + (setcdr slot + (cons (format " (%s)" charset) + (cdr slot))))) (setq indent-tabs-mode nil) (set-buffer-multibyte t) (cond ((charsetp charset) -- 2.39.2