/[emacs]/emacs/lisp/international/mule-diag.el
ViewVC logotype

Diff of /emacs/lisp/international/mule-diag.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.77 by monnier, Tue Jun 18 23:00:13 2002 UTC revision 1.78 by handa, Wed Jul 17 08:45:28 2002 UTC
# Line 720  in place of `..': Line 720  in place of `..':
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)))

Legend:
Removed from v.1.77  
changed lines
  Added in v.1.78

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26