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:
Glenn Morris 2011-05-26 00:23:11 -07:00
parent 0f4aebc0eb
commit 98f593b8d4
2 changed files with 6 additions and 2 deletions

View file

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

View file

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