(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 c439b30f944ca3c51abef9c54a4f366ff30d9057..0d74e93f8e864e66c775abba98645a8207ffbae3 100644 (file)
--- 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 ()