diff options
author | Glenn Morris <rgm@gnu.org> | 2011-08-19 14:23:09 -0400 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2011-08-19 14:23:09 -0400 |
commit | 9234ff7fcfa79c5e19b9d3a7ae88570f4f768b9a (patch) | |
tree | d1e9d52c9e1ed115776f74322f687801b6d37c4e /lisp/files.el | |
parent | 823564e519dd1f3e81a79949e1abc033c9e7c0a5 (diff) |
files.el fix for bug#9331
* lisp/files.el (hack-local-variables-prop-line, hack-local-variables):
Downcase "Mode:".
Diffstat (limited to 'lisp/files.el')
-rw-r--r-- | lisp/files.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/files.el b/lisp/files.el index 6b8a352f20c..8c7e63dda14 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -3003,9 +3003,10 @@ mode, if there is one, otherwise nil." "-mode")))) (or (equal keyname "coding") (condition-case nil - (push (cons (if (eq key 'eval) - 'eval - (indirect-variable key)) + (push (cons (cond ((eq key 'eval) 'eval) + ;; Downcase "Mode:". + ((equal keyname "mode") 'mode) + (t (indirect-variable key))) val) result) (error nil)))) (skip-chars-forward " \t;"))) @@ -3153,6 +3154,7 @@ major-mode." (var (let ((read-circle nil)) (read str))) val val2) + (and (eq var 'Mode) (setq var 'mode)) ;; Read the variable value. (skip-chars-forward "^:") (forward-char 1) |