Downcase mode names in recent files.el changes.
* lisp/files.el (hack-local-variables-prop-line, hack-local-variables): Downcase mode names, as seems to be traditional.
This commit is contained in:
parent
0f4aebc0eb
commit
98f593b8d4
2 changed files with 6 additions and 2 deletions
|
@ -1,5 +1,8 @@
|
|||
2011-05-26 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
* files.el (hack-local-variables-prop-line, hack-local-variables):
|
||||
Downcase mode names, as seems to be traditional.
|
||||
|
||||
* mail/emacsbug.el (report-emacs-bug): Mention checking From address.
|
||||
(report-emacs-bug-hook): Try to validate the From address. (Bug#8038)
|
||||
|
||||
|
|
|
@ -3078,7 +3078,8 @@ mode, if there is one, otherwise nil."
|
|||
(if mode-only
|
||||
(and (equal keyname "mode")
|
||||
(setq result
|
||||
(intern (concat (symbol-name val) "-mode"))))
|
||||
(intern (concat (downcase (symbol-name val))
|
||||
"-mode"))))
|
||||
(or (equal keyname "coding")
|
||||
(condition-case nil
|
||||
(push (cons (if (eq key 'eval)
|
||||
|
@ -3240,7 +3241,7 @@ major-mode."
|
|||
;; deprecated, but try to reject them anyway.
|
||||
(not (string-match
|
||||
"-minor\\'"
|
||||
(setq val2 (symbol-name val))))
|
||||
(setq val2 (downcase (symbol-name val)))))
|
||||
(setq result (intern (concat val2 "-mode"))))
|
||||
(unless (eq var 'coding)
|
||||
(condition-case nil
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue