Mercurial > emacs
comparison lisp/international/mule-diag.el @ 46490:e541dfaa4964
(print-coding-system-briefly): Fix the handling of an alias of which
eol-type is not auto-detection.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Wed, 17 Jul 2002 08:45:28 +0000 |
parents | 9f98a97f5469 |
children | 698b4a4bb562 |
comparison
equal
deleted
inserted
replaced
46489:e429a944355d | 46490:e541dfaa4964 |
---|---|
718 (princ "nil\n") | 718 (princ "nil\n") |
719 (princ (format "%c -- %s" | 719 (princ (format "%c -- %s" |
720 (coding-system-mnemonic coding-system) | 720 (coding-system-mnemonic coding-system) |
721 coding-system)) | 721 coding-system)) |
722 (let ((aliases (coding-system-get coding-system 'alias-coding-systems))) | 722 (let ((aliases (coding-system-get coding-system 'alias-coding-systems))) |
723 (if (eq coding-system (car aliases)) | 723 (cond ((eq coding-system (car aliases)) |
724 (if (cdr aliases) | 724 (if (cdr aliases) |
725 (princ (format " %S" (cons 'alias: (cdr aliases))))) | 725 (princ (format " %S" (cons 'alias: (cdr aliases)))))) |
726 (if (memq coding-system aliases) | 726 ((memq coding-system aliases) |
727 (princ (format " (alias of %s)" (car aliases)))))) | 727 (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)))))))) | |
728 (princ "\n\n") | 736 (princ "\n\n") |
729 (if (and doc-string | 737 (if (and doc-string |
730 (setq doc-string (coding-system-doc-string coding-system))) | 738 (setq doc-string (coding-system-doc-string coding-system))) |
731 (princ (format "%s\n" doc-string))))) | 739 (princ (format "%s\n" doc-string))))) |
732 | 740 |