(describe-coding-system): Change the

format of showing safe charsets.

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 5c8878f2f5a7b99a44a155e70e764beee2d6c92c..a63781174ef2963dd757685fad308668d0d2216f 100644 (file)
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -215,12 +215,14 @@ but contains full information about each character sets."
          (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)))))