Mercurial > emacs
changeset 19645:df1911293a5e
(hack-local-variables-prop-line): Ignore coding: tag.
(hack-one-local-variable): Likewise.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 01 Sep 1997 07:17:07 +0000 |
| parents | f0c278dad88e |
| children | 175c12fff246 |
| files | lisp/files.el |
| diffstat | 1 files changed, 8 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Mon Sep 01 07:17:07 1997 +0000 +++ b/lisp/files.el Mon Sep 01 07:17:07 1997 +0000 @@ -1369,8 +1369,9 @@ (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 @@ ;; 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 @@ (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.