From: Kenichi Handa <handa@m17n.org>
Date: Thu, 22 Jan 1998 01:42:20 +0000 (+0000)
Subject: (describe-coding-system): Change the
X-Git-Tag: emacs-20.3~2343
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0691ad6147a2833f8533cb174dfe8b5b342f9248;p=emacs.git

(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 5c8878f2f5a..a63781174ef 100644
--- 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)))))