From: Kenichi Handa <handa@m17n.org>
Date: Wed, 25 Sep 2002 08:11:03 +0000 (+0000)
Subject: (list-character-sets): Use the buffer
X-Git-Tag: ttn-vms-21-2-B4~13072
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3aab6d061d318f7efc9c8ad8c63a6be2e8a38b9e;p=emacs.git

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

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)