# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 868955087 0
# Node ID 6c0d648d2cf8fbbf0c26670603f5a053576c6deb
# Parent  d4c708a5f1813334468104e167bcbcf8631927d5
(describe-current-coding-system): Use coding-category-iso-7-else
instead of coding-category-iso-else.

diff -r d4c708a5f181 -r 6c0d648d2cf8 lisp/international/mule-diag.el
--- a/lisp/international/mule-diag.el	Tue Jul 15 08:24:47 1997 +0000
+++ b/lisp/international/mule-diag.el	Tue Jul 15 08:24:47 1997 +0000
@@ -314,7 +314,7 @@
   from these, and therefore cannot be recognized automatically
   with the present coding system priorities.\n\n")
 
-      (let ((categories '(coding-category-iso-7 coding-category-iso-else))
+      (let ((categories '(coding-category-iso-7 coding-category-iso-7-else))
 	    coding-system codings)
 	(while categories
 	  (setq coding-system (symbol-value (car categories)))
@@ -468,7 +468,7 @@
 	  coding-system)
       (while bases
 	(setq coding-system (car bases))
-	(if (interactive-p)
+	(if (null arg)
 	    (print-coding-system-briefly coding-system 'doc-string)
 	  (print-coding-system coding-system))
 	(setq bases (cdr bases))))))