996 |
(dolist (coding-system (sort-coding-systems (coding-system-list 'base-only))) |
(dolist (coding-system (sort-coding-systems (coding-system-list 'base-only))) |
997 |
(if (null arg) |
(if (null arg) |
998 |
(print-coding-system-briefly coding-system 'tightly) |
(print-coding-system-briefly coding-system 'tightly) |
999 |
(print-coding-system coding-system)))) |
(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)))))) |
1011 |
|
|
1012 |
;;;###autoload |
;;;###autoload |
1013 |
(defun list-coding-categories () |
(defun list-coding-categories () |