681 |
(princ (format "%c -- %s" |
(princ (format "%c -- %s" |
682 |
(coding-system-mnemonic coding-system) |
(coding-system-mnemonic coding-system) |
683 |
coding-system)) |
coding-system)) |
684 |
(let ((aliases (coding-system-get coding-system 'alias-coding-systems))) |
(let ((aliases (coding-system-aliases coding-system))) |
685 |
(if (eq coding-system (car aliases)) |
(if (eq coding-system (car aliases)) |
686 |
(if (cdr aliases) |
(if (cdr aliases) |
687 |
(princ (format " %S" (cons 'alias: (cdr aliases))))) |
(princ (format " %S" (cons 'alias: (cdr aliases))))) |
740 |
from these, and therefore cannot be recognized automatically |
from these, and therefore cannot be recognized automatically |
741 |
with the present coding system priorities.\n\n") |
with the present coding system priorities.\n\n") |
742 |
|
|
743 |
|
;; Fixme: should this be replaced or junked? |
744 |
(if nil |
(if nil |
745 |
(let ((categories '(coding-category-iso-7 coding-category-iso-7-else)) |
(let ((categories '(coding-category-iso-7 coding-category-iso-7-else)) |
746 |
coding-system codings) |
coding-system codings) |
750 |
(function |
(function |
751 |
(lambda (x) |
(lambda (x) |
752 |
(if (and (not (eq x coding-system)) |
(if (and (not (eq x coding-system)) |
|
(coding-system-get x 'no-initial-designation) |
|
753 |
(let ((flags (coding-system-get :flags))) |
(let ((flags (coding-system-get :flags))) |
754 |
(not (or (memq 'use-roman flags) |
(not (or (memq 'use-roman flags) |
755 |
(memq 'use-oldjis flags))))) |
(memq 'use-oldjis flags))))) |
800 |
(let ((type (coding-system-type coding-system)) |
(let ((type (coding-system-type coding-system)) |
801 |
(eol-type (coding-system-eol-type coding-system)) |
(eol-type (coding-system-eol-type coding-system)) |
802 |
(flags (coding-system-get coding-system :flags)) |
(flags (coding-system-get coding-system :flags)) |
803 |
(aliases (coding-system-get coding-system 'alias-coding-systems))) |
(aliases (coding-system-aliases coding-system))) |
804 |
(if (not (eq (car aliases) coding-system)) |
(if (not (eq (car aliases) coding-system)) |
805 |
(princ (format "%s (alias of %s)\n" coding-system (car aliases))) |
(princ (format "%s (alias of %s)\n" coding-system (car aliases))) |
806 |
(princ coding-system) |
(princ coding-system) |
913 |
(print-coding-system coding-system)) |
(print-coding-system coding-system)) |
914 |
(setq bases (cdr bases))))) |
(setq bases (cdr bases))))) |
915 |
|
|
916 |
|
;; Fixme: delete? |
917 |
;;;###autoload |
;;;###autoload |
918 |
(defun list-coding-categories () |
(defun list-coding-categories () |
919 |
"Display a list of all coding categories." |
"Display a list of all coding categories." |
1198 |
|
|
1199 |
(insert-section 4 "Coding systems") |
(insert-section 4 "Coding systems") |
1200 |
(list-coding-systems-1 t) |
(list-coding-systems-1 t) |
|
(princ "\ |
|
|
############################ |
|
|
## LIST OF CODING CATEGORIES (ordered by priority) |
|
|
## CATEGORY:CODING-SYSTEM |
|
|
## |
|
|
") |
|
|
(let ((l coding-category-list)) |
|
|
(while l |
|
|
(princ (format "%s:%s\n" (car l) (symbol-value (car l)))) |
|
|
(setq l (cdr l)))) |
|
1201 |
(insert "\n") |
(insert "\n") |
1202 |
|
|
1203 |
(insert-section 5 "Character sets") |
(insert-section 5 "Character sets") |