diff options
| author | Kenichi Handa <handa@m17n.org> | 2001-03-26 04:11:28 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2001-03-26 04:11:28 +0000 |
| commit | 97b14492efbf9338f24e1747d194b379afde9fcb (patch) | |
| tree | 3ccf37b73c429e921b783f9d98cf2a0670e54934 /lisp/international/mule-diag.el | |
| parent | 9edbff6c6fa45a4cb42f3fa82cdc90368e9c6a07 (diff) | |
| download | emacs-97b14492efbf9338f24e1747d194b379afde9fcb.tar.gz | |
(describe-coding-system): For raw-text and emacs-mule, don't add
anymore text about what charsets they can encode.
Diffstat (limited to 'lisp/international/mule-diag.el')
| -rw-r--r-- | lisp/international/mule-diag.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el index bbc818591a2..51ac6f79073 100644 --- a/lisp/international/mule-diag.el +++ b/lisp/international/mule-diag.el @@ -729,9 +729,12 @@ which font is being used for displaying the character." (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))) |