Mercurial > emacs
comparison lisp/international/mule-diag.el @ 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 | 698b4a4bb562 |
| children | 22df356e38df |
comparison
equal
deleted
inserted
replaced
| 47602:1f33088bba81 | 47603:28c9630ee23e |
|---|---|
| 82 | 82 |
| 83 With prefix arg, the output format gets more cryptic, | 83 With prefix arg, the output format gets more cryptic, |
| 84 but still shows the full information." | 84 but still shows the full information." |
| 85 (interactive "P") | 85 (interactive "P") |
| 86 (help-setup-xref (list #'list-character-sets arg) (interactive-p)) | 86 (help-setup-xref (list #'list-character-sets arg) (interactive-p)) |
| 87 (with-output-to-temp-buffer (help-buffer) | 87 (with-output-to-temp-buffer "*Character Set List*" |
| 88 (with-current-buffer standard-output | 88 (with-current-buffer standard-output |
| 89 (if arg | 89 (if arg |
| 90 (list-character-sets-2) | 90 (list-character-sets-2) |
| 91 ;; Insert header. | 91 ;; Insert header. |
| 92 (insert | 92 (insert |
| 485 "Display a list of characters in the specified character set. | 485 "Display a list of characters in the specified character set. |
| 486 This can list both Emacs `official' (ISO standard) charsets and the | 486 This can list both Emacs `official' (ISO standard) charsets and the |
| 487 characters encoded by various Emacs coding systems which correspond to | 487 characters encoded by various Emacs coding systems which correspond to |
| 488 PC `codepages' and other coded character sets. See `non-iso-charset-alist'." | 488 PC `codepages' and other coded character sets. See `non-iso-charset-alist'." |
| 489 (interactive (list (read-charset "Character set: "))) | 489 (interactive (list (read-charset "Character set: "))) |
| 490 (with-output-to-temp-buffer "*Help*" | 490 (with-output-to-temp-buffer "*Character List*" |
| 491 (with-current-buffer standard-output | 491 (with-current-buffer standard-output |
| 492 (setq mode-line-format (copy-sequence mode-line-format)) | |
| 493 (let ((slot (memq 'mode-line-buffer-identification mode-line-format))) | |
| 494 (if slot | |
| 495 (setcdr slot | |
| 496 (cons (format " (%s)" charset) | |
| 497 (cdr slot))))) | |
| 492 (setq indent-tabs-mode nil) | 498 (setq indent-tabs-mode nil) |
| 493 (set-buffer-multibyte t) | 499 (set-buffer-multibyte t) |
| 494 (cond ((charsetp charset) | 500 (cond ((charsetp charset) |
| 495 (list-iso-charset-chars charset)) | 501 (list-iso-charset-chars charset)) |
| 496 ((assq charset non-iso-charset-alist) | 502 ((assq charset non-iso-charset-alist) |