Mercurial > emacs
changeset 46489:e429a944355d
(define-coding-system-alias): Don't append ALIAS in the property
`alias-coding-systems' if ALIAS's eol-type is not auto-detection.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 17 Jul 2002 08:44:58 +0000 |
| parents | 30de5885550e |
| children | e541dfaa4964 |
| files | lisp/international/mule.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule.el Wed Jul 17 08:44:34 2002 +0000 +++ b/lisp/international/mule.el Wed Jul 17 08:44:58 2002 +0000 @@ -1091,13 +1091,14 @@ (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)