changeset 52797:2abeaf2b1068

(list-coding-systems-1): List coding systems that are loaded automatically.
author Kenichi Handa <handa@m17n.org>
date Tue, 07 Oct 2003 06:45:46 +0000
parents af41ec2032d0
children 1a813cb591b2
files lisp/international/mule-diag.el
diffstat 1 files changed, 12 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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 ()