Mercurial > emacs
changeset 20731:9fba656001e8
(describe-coding-system): Change the
format of showing safe charsets.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 22 Jan 1998 01:42:20 +0000 |
| parents | 42d729244a85 |
| children | 7187fdedb775 |
| files | lisp/international/mule-diag.el |
| diffstat | 1 files changed, 7 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-diag.el Thu Jan 22 01:42:20 1998 +0000 +++ b/lisp/international/mule-diag.el Thu Jan 22 01:42:20 1998 +0000 @@ -215,12 +215,14 @@ (princ "\n"))) (let ((charsets (coding-system-get coding-system 'safe-charsets))) (when charsets - (princ "This coding system is mainly for the following charsets:\n") - (princ " ") - (while charsets + (if (eq charsets t) + (princ "This coding system can encode charsets:\n") + (princ "This coding system encode the following charsets:\n") (princ " ") - (princ (car charsets)) - (setq charsets (cdr charsets))))) + (while charsets + (princ " ") + (princ (car charsets)) + (setq charsets (cdr charsets)))))) (save-excursion (set-buffer standard-output) (help-mode)))))