[Emacs-diffs] /srv/bzr/emacs/trunk r104373: Downcase mode names in recent files.el changes.

[Glenn Morris]

------------------------------------------------------------
revno: 104373
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Thu 2011-05-26 00:23:11 -0700
message:
  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.
modified:
  lisp/ChangeLog
  lisp/files.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-05-26 00:52:33 +0000
+++ b/lisp/ChangeLog    2011-05-26 07:23:11 +0000
@@ -1,5 +1,8 @@
 2011-05-26  Glenn Morris  <address@hidden>
 
+       * 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)
 

=== modified file 'lisp/files.el'
--- a/lisp/files.el     2011-05-23 17:57:17 +0000
+++ b/lisp/files.el     2011-05-26 07:23:11 +0000
@@ -3078,7 +3078,8 @@
                 (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 @@
                               ;; 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