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

[Kenichi Handa]

Index: emacs/lisp/international/mule.el
diff -c emacs/lisp/international/mule.el:1.149 
emacs/lisp/international/mule.el:1.150
*** emacs/lisp/international/mule.el:1.149      Fri Jul  5 19:16:08 2002
--- emacs/lisp/international/mule.el    Wed Jul 17 04:44:58 2002
***************
*** 1091,1103 ****
  (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))
        (put alias 'eol-type eol-type))))
  
  (defun set-buffer-file-coding-system (coding-system &optional force)
--- 1091,1104 ----
  (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))
    (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)
!       (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)