(define-coding-system-alias): Don't append ALIAS in the property

`alias-coding-systems' if ALIAS's eol-type is not auto-detection.

1 files changed, 3 insertions, 2 deletions

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index fc24ac0c525..afdfa0af3b1 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -1091,13 +1091,14 @@ a value of `safe-charsets' in PLIST."
 (defun define-coding-system-alias (alias coding-system)
   "Define ALIAS as an alias for coding system CODING-SYSTEM."
   (put alias 'coding-system (coding-system-spec coding-system))
-  (nconc (coding-system-get alias 'alias-coding-systems) (list alias))
   (add-to-coding-system-list alias)
   (setq coding-system-alist (cons (list (symbol-name alias))
                                   coding-system-alist))
   (let ((eol-type (coding-system-eol-type coding-system)))
     (if (vectorp eol-type)
-        (put alias 'eol-type (make-subsidiary-coding-system alias))
+        (progn
+          (nconc (coding-system-get alias 'alias-coding-systems) (list alias))
+          (put alias 'eol-type (make-subsidiary-coding-system alias)))
       (put alias 'eol-type eol-type))))
 
 (defun set-buffer-file-coding-system (coding-system &optional force)