720 |
(coding-system-mnemonic coding-system) |
(coding-system-mnemonic coding-system) |
721 |
coding-system)) |
coding-system)) |
722 |
(let ((aliases (coding-system-get coding-system 'alias-coding-systems))) |
(let ((aliases (coding-system-get coding-system 'alias-coding-systems))) |
723 |
(if (eq coding-system (car aliases)) |
(cond ((eq coding-system (car aliases)) |
724 |
(if (cdr aliases) |
(if (cdr aliases) |
725 |
(princ (format " %S" (cons 'alias: (cdr aliases))))) |
(princ (format " %S" (cons 'alias: (cdr aliases)))))) |
726 |
(if (memq coding-system aliases) |
((memq coding-system aliases) |
727 |
(princ (format " (alias of %s)" (car aliases)))))) |
(princ (format " (alias of %s)" (car aliases)))) |
728 |
|
(t |
729 |
|
(let ((eol-type (coding-system-eol-type coding-system)) |
730 |
|
(base-eol-type (coding-system-eol-type (car aliases)))) |
731 |
|
(if (and (integerp eol-type) |
732 |
|
(vectorp base-eol-type) |
733 |
|
(not (eq coding-system (aref base-eol-type eol-type)))) |
734 |
|
(princ (format " (alias of %s)" |
735 |
|
(aref base-eol-type eol-type)))))))) |
736 |
(princ "\n\n") |
(princ "\n\n") |
737 |
(if (and doc-string |
(if (and doc-string |
738 |
(setq doc-string (coding-system-doc-string coding-system))) |
(setq doc-string (coding-system-doc-string coding-system))) |