(print-coding-system-briefly): Fix the handling of an alias of which

eol-type is not auto-detection.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d48b6dd1440b6c32addab38d2e0810c91c048b8c..f5d23bb8519ab39f801a1f19a9d9a8340483415e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -5,7 +5,7 @@
        eol-type is not auto-detection.
 
        * international/mule-diag.el (print-coding-system-briefly): Fix
-       the handling of an alias of which eol-type is not auto-detction.
+       the handling of an alias of which eol-type is not auto-detection.
 
        * international/mule-conf.el (us-ascii): Define it as an alias of
        iso-safe.

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 8aa853b3d8239280873753d2e71f52f14e8d4ae5..d4c4af4a19aa146fc8c436491d3468dc91a8ff31 100644 (file)
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -720,11 +720,19 @@ in place of `..':
                   (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))))))
+      (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)))