diff options
author | Glenn Morris <[email protected]> | 2011-08-20 15:26:52 -0700 |
---|---|---|
committer | Glenn Morris <[email protected]> | 2011-08-20 15:26:52 -0700 |
commit | 8e999f70ab17da9006eec0bac77dc3a3502a5eed (patch) | |
tree | be30f4057570bf2da2f6294a06884f839ccc0127 | |
parent | f624176fea1020c6786f134e175aea0d2f5c4431 (diff) |
* lisp/files.el (hack-local-variables): Fully ignore case for "mode:".
-rw-r--r-- | lisp/ChangeLog | 4 | ||||
-rw-r--r-- | lisp/files.el | 3 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index efacb110d1..2e06de9fd9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2011-08-20 Glenn Morris <[email protected]> + + * files.el (hack-local-variables): Fully ignore case for "mode:". + 2011-08-20 Alan Mackenzie <[email protected]> Resolve invalid use of a regexp in regexp-opt. diff --git a/lisp/files.el b/lisp/files.el index 8c7e63dda1..07188e152b 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -3154,7 +3154,8 @@ major-mode." (var (let ((read-circle nil)) (read str))) val val2) - (and (eq var 'Mode) (setq var 'mode)) + (and (equal (downcase (symbol-name var)) "mode") + (setq var 'mode)) ;; Read the variable value. (skip-chars-forward "^:") (forward-char 1) |