[Emacs-diffs] /srv/bzr/emacs/trunk r105510: * lisp/files.el (hack-local-variables): Fully ignore case for "mode:".

[Glenn Morris]

------------------------------------------------------------
revno: 105510
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sat 2011-08-20 15:26:52 -0700
message:
  * lisp/files.el (hack-local-variables): Fully ignore case for "mode:".
modified:
  lisp/ChangeLog
  lisp/files.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-08-20 22:02:25 +0000
+++ b/lisp/ChangeLog    2011-08-20 22:26:52 +0000
@@ -1,3 +1,7 @@
+2011-08-20  Glenn Morris  <address@hidden>
+
+       * files.el (hack-local-variables): Fully ignore case for "mode:".
+
 2011-08-20  Alan Mackenzie  <address@hidden>
 
        Resolve invalid use of a regexp in regexp-opt.

=== modified file 'lisp/files.el'
--- a/lisp/files.el     2011-08-19 18:23:09 +0000
+++ b/lisp/files.el     2011-08-20 22:26:52 +0000
@@ -3154,7 +3154,8 @@
                           (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)