Mercurial > emacs
diff lisp/international/mule-diag.el @ 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 | 7d80b248f20e |
| children | 2d359989a04e |
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 ()