Mercurial > emacs
changeset 47603:28c9630ee23e
(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.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 25 Sep 2002 08:11:03 +0000 |
| parents | 1f33088bba81 |
| children | 4d979a2a3934 |
| files | lisp/international/mule-diag.el |
| diffstat | 1 files changed, 8 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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)