84 |
but still shows the full information." |
but still shows the full information." |
85 |
(interactive "P") |
(interactive "P") |
86 |
(help-setup-xref (list #'list-character-sets arg) (interactive-p)) |
(help-setup-xref (list #'list-character-sets arg) (interactive-p)) |
87 |
(with-output-to-temp-buffer (help-buffer) |
(with-output-to-temp-buffer "*Character Set List*" |
88 |
(with-current-buffer standard-output |
(with-current-buffer standard-output |
89 |
(if arg |
(if arg |
90 |
(list-character-sets-2) |
(list-character-sets-2) |
487 |
characters encoded by various Emacs coding systems which correspond to |
characters encoded by various Emacs coding systems which correspond to |
488 |
PC `codepages' and other coded character sets. See `non-iso-charset-alist'." |
PC `codepages' and other coded character sets. See `non-iso-charset-alist'." |
489 |
(interactive (list (read-charset "Character set: "))) |
(interactive (list (read-charset "Character set: "))) |
490 |
(with-output-to-temp-buffer "*Help*" |
(with-output-to-temp-buffer "*Character List*" |
491 |
(with-current-buffer standard-output |
(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))))) |
498 |
(setq indent-tabs-mode nil) |
(setq indent-tabs-mode nil) |
499 |
(set-buffer-multibyte t) |
(set-buffer-multibyte t) |
500 |
(cond ((charsetp charset) |
(cond ((charsetp charset) |