# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 985579888 0
# Node ID ce090eb0eddac918ff68472ed452a0e05a8f3c95
# Parent  c904b89720f86a41f7b4a0c5a06b1a6b6e8e023f
(describe-coding-system): For raw-text and emacs-mule, don't add
anymore text about what charsets they can encode.

diff -r c904b89720f8 -r ce090eb0edda lisp/international/mule-diag.el
--- 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)))