# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1032941463 0
# Node ID 28c9630ee23e9e6f9514a3aa00747a7323d991d0
# Parent  1f33088bba81c81bff5ab55529e8dbe61ca3e904
(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 -r 1f33088bba81 -r 28c9630ee23e lisp/international/mule-diag.el
--- a/lisp/international/mule-diag.el	Wed Sep 25 08:10:28 2002 +0000
+++ b/lisp/international/mule-diag.el	Wed Sep 25 08:11:03 2002 +0000
@@ -84,7 +84,7 @@
 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 @@
 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)