# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1065509146 0
# Node ID 2abeaf2b106873c660f717d47a417d14e660f576
# Parent  af41ec2032d09a69b4460d35555501cfc4f41567
(list-coding-systems-1): List coding
systems that are loaded automatically.

diff -r af41ec2032d0 -r 2abeaf2b1068 lisp/international/mule-diag.el
--- a/lisp/international/mule-diag.el	Tue Oct 07 01:29:57 2003 +0000
+++ b/lisp/international/mule-diag.el	Tue Oct 07 06:45:46 2003 +0000
@@ -996,7 +996,18 @@
   (dolist (coding-system (sort-coding-systems (coding-system-list 'base-only)))
     (if (null arg)
 	(print-coding-system-briefly coding-system 'tightly)
-      (print-coding-system coding-system))))
+      (print-coding-system coding-system)))
+  (let ((first t))
+    (dolist (elt coding-system-alist)
+      (unless (memq (intern (car elt)) coding-system-list)
+	(when first
+	  (princ "\
+####################################################
+# The following coding systems are not yet loaded. #
+####################################################
+")
+	  (setq first nil))
+	(princ-list (car elt))))))
 
 ;;;###autoload
 (defun list-coding-categories ()