1 files changed, 2 insertions, 2 deletions

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 4cce91c002c..417eddd79d5 100644
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -314,7 +314,7 @@ at the place of `..':
   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 @@ but contains full information about each coding systems."
           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))))))