(describe-coding-system): For raw-text and emacs-mule, don't add

anymore text about what charsets they can encode.

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index bbc818591a2b117f225a5e8738e5bb24c99806e7..51ac6f7907368bdf0c936b6a616faf308b6792a1 100644 (file)
--- 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)))