From: Kenichi Handa <handa@m17n.org>
Date: Tue, 7 Oct 2003 06:45:46 +0000 (+0000)
Subject: (list-coding-systems-1): List coding
X-Git-Tag: ttn-vms-21-2-B4~8586
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a7832266c3fba6abf875a70fd3db00acf25ea8ac;p=emacs.git

(list-coding-systems-1): List coding
systems that are loaded automatically.
---

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index c439b30f944..0d74e93f8e8 100644
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -996,7 +996,18 @@ but still contains full information about each coding system."
   (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 ()