mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

files.el fix for bug#9331

Browse Source 
* lisp/files.el (hack-local-variables-prop-line, hack-local-variables):
Downcase "Mode:".
This commit is contained in:
Glenn Morris 2011-08-19 14:23:09 -04:00
parent 823564e519
commit 9234ff7fcf
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2011-08-19 Glenn Morris <rgm@gnu.org>
* files.el (hack-local-variables-prop-line, hack-local-variables):
Downcase "Mode:". (Bug#9331)
2011-08-18 Chong Yidong <cyd@stupidchicken.com>
* international/characters.el: Add L and R categories.

8
lisp/files.el
View File

@ -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)