Mercurial > emacs

comparison lisp/international/mule-diag.el @ 46490:e541dfaa4964

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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