# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 885433340 0
# Node ID 9fba656001e833319ce7dc5a9403e220bdde120b
# Parent  42d729244a85adbd7f8e0ad0710aa53ca0b03619
(describe-coding-system): Change the
format of showing safe charsets.

diff -r 42d729244a85 -r 9fba656001e8 lisp/international/mule-diag.el
--- 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)))))