[Emacs-diffs] Changes to emacs/lisp/international/mule-diag.el

[Kenichi Handa]

Index: emacs/lisp/international/mule-diag.el
diff -c emacs/lisp/international/mule-diag.el:1.77 
emacs/lisp/international/mule-diag.el:1.78
*** emacs/lisp/international/mule-diag.el:1.77  Tue Jun 18 19:00:13 2002
--- emacs/lisp/international/mule-diag.el       Wed Jul 17 04:45:28 2002
***************
*** 720,730 ****
                   (coding-system-mnemonic coding-system)
                   coding-system))
      (let ((aliases (coding-system-get coding-system 'alias-coding-systems)))
!       (if (eq coding-system (car aliases))
!         (if (cdr aliases)
!             (princ (format " %S" (cons 'alias: (cdr aliases)))))
!       (if (memq coding-system aliases)
!           (princ (format " (alias of %s)" (car aliases))))))
      (princ "\n\n")
      (if (and doc-string
             (setq doc-string (coding-system-doc-string coding-system)))
--- 720,738 ----
                   (coding-system-mnemonic coding-system)
                   coding-system))
      (let ((aliases (coding-system-get coding-system 'alias-coding-systems)))
!       (cond ((eq coding-system (car aliases))
!            (if (cdr aliases)
!                (princ (format " %S" (cons 'alias: (cdr aliases))))))
!           ((memq coding-system aliases)
!            (princ (format " (alias of %s)" (car aliases))))
!           (t
!            (let ((eol-type (coding-system-eol-type coding-system))
!                  (base-eol-type (coding-system-eol-type (car aliases))))
!              (if (and (integerp eol-type)
!                       (vectorp base-eol-type)
!                       (not (eq coding-system (aref base-eol-type eol-type))))
!                  (princ (format " (alias of %s)"
!                                 (aref base-eol-type eol-type))))))))
      (princ "\n\n")
      (if (and doc-string
             (setq doc-string (coding-system-doc-string coding-system)))