Mercurial > emacs
changeset 36989:ce090eb0edda
(describe-coding-system): For raw-text and emacs-mule, don't add
anymore text about what charsets they can encode.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 26 Mar 2001 04:11:28 +0000 |
| parents | c904b89720f8 |
| children | 1d714221177a |
| files | lisp/international/mule-diag.el |
| diffstat | 1 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-diag.el Mon Mar 26 04:11:03 2001 +0000 +++ b/lisp/international/mule-diag.el Mon Mar 26 04:11:28 2001 +0000 @@ -729,9 +729,12 @@ (save-excursion (set-buffer standard-output) (let ((charsets (coding-system-get coding-system 'safe-charsets))) - (when charsets + (when (and (not (memq (coding-system-base coding-system) + '(raw-text emacs-mule))) + charsets) (if (eq charsets t) - (insert "This coding system can encode all charsets.\n") + (insert "This coding system can encode all charsets except for +eight-bit-control and eight-bit-graphic.\n") (insert "This coding system encodes the following charsets:\n ") (while charsets (insert " " (symbol-name (car charsets)))