From 708fc4655ea528fc410f9eb0fb7c52c9aa279d0b Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 17 Jul 2002 08:44:58 +0000 Subject: [PATCH] (define-coding-system-alias): Don't append ALIAS in the property `alias-coding-systems' if ALIAS's eol-type is not auto-detection. --- lisp/international/mule.el | 5 +++-- 1 file 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) -- 2.39.2