[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r104373: Downcase mode names in recen
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r104373: Downcase mode names in recent files.el changes. |
Date: |
Thu, 26 May 2011 00:23:11 -0700 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r104373: Downcase mode names in recent files.el changes.,
Glenn Morris <=