diff options
| author | Kenichi Handa | 2003-10-07 06:45:46 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2003-10-07 06:45:46 +0000 |
| commit | a7832266c3fba6abf875a70fd3db00acf25ea8ac (patch) | |
| tree | dfa8e1eafec010e4f8dacc278aeade6da4494ce0 | |
| parent | 3f7296a41835a7ffaaa811ca0cf47e5ee0aab47e (diff) | |
| download | emacs-a7832266c3fba6abf875a70fd3db00acf25ea8ac.tar.gz emacs-a7832266c3fba6abf875a70fd3db00acf25ea8ac.zip | |
(list-coding-systems-1): List coding
systems that are loaded automatically.
| -rw-r--r-- | lisp/international/mule-diag.el | 13 |
1 files changed, 12 insertions, 1 deletions
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." | |||
| 996 | (dolist (coding-system (sort-coding-systems (coding-system-list 'base-only))) | 996 | (dolist (coding-system (sort-coding-systems (coding-system-list 'base-only))) |
| 997 | (if (null arg) | 997 | (if (null arg) |
| 998 | (print-coding-system-briefly coding-system 'tightly) | 998 | (print-coding-system-briefly coding-system 'tightly) |
| 999 | (print-coding-system coding-system)))) | 999 | (print-coding-system coding-system))) |
| 1000 | (let ((first t)) | ||
| 1001 | (dolist (elt coding-system-alist) | ||
| 1002 | (unless (memq (intern (car elt)) coding-system-list) | ||
| 1003 | (when first | ||
| 1004 | (princ "\ | ||
| 1005 | #################################################### | ||
| 1006 | # The following coding systems are not yet loaded. # | ||
| 1007 | #################################################### | ||
| 1008 | ") | ||
| 1009 | (setq first nil)) | ||
| 1010 | (princ-list (car elt)))))) | ||
| 1000 | 1011 | ||
| 1001 | ;;;###autoload | 1012 | ;;;###autoload |
| 1002 | (defun list-coding-categories () | 1013 | (defun list-coding-categories () |