From 3fa0a9aafd089877a62d3a2565222bf89c1cb23e Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 1 Sep 1997 07:17:07 +0000 Subject: [PATCH] (hack-local-variables-prop-line): Ignore coding: tag. (hack-one-local-variable): Likewise. --- lisp/files.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/files.el b/lisp/files.el index 139ff160e1..896640171c 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -1369,8 +1369,9 @@ and we don't even do that unless it would come from the file name." (defun hack-local-variables-prop-line () ;; Set local variables specified in the -*- line. - ;; Ignore any specification for `mode:'; - ;; set-auto-mode should already have handled that. + ;; Ignore any specification for `mode:' and `coding:'; + ;; set-auto-mode should already have handled `mode:', + ;; set-auto-coding should already have handled `coding:'. (save-excursion (goto-char (point-min)) (let ((result nil) @@ -1406,7 +1407,9 @@ and we don't even do that unless it would come from the file name." ;; case when checking for `mode' in set-auto-mode, ;; so we must do that here as well. ;; That is inconsistent, but we're stuck with it. + ;; The same can be said for `coding' in set-auto-coding. (or (equal (downcase (symbol-name key)) "mode") + (equal (downcase (symbol-name key)) "coding") (setq result (cons (cons key val) result))) (skip-chars-forward " \t;"))) (setq result (nreverse result)))) @@ -1558,6 +1561,9 @@ is specified, returning t if it is specified." (cond ((eq var 'mode) (funcall (intern (concat (downcase (symbol-name val)) "-mode")))) + ((eq var 'coding) + ;; We have already handled coding: tag in set-auto-coding. + nil) ((memq var ignored-local-variables) nil) ;; "Setting" eval means either eval it or do nothing. -- 2.39.2