changeset 12068:5d44c48f3b7b

(hack-local-variables-prop-line): Don't downcase var name.
author Karl Heuer <kwzh@gnu.org>
date Mon, 05 Jun 1995 12:30:11 +0000
parents 73dc8205d259
children 505dc29a68cf
files lisp/files.el
diffstat 1 files changed, 6 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/files.el	Mon Jun 05 12:23:13 1995 +0000
+++ b/lisp/files.el	Mon Jun 05 12:30:11 1995 +0000
@@ -1077,9 +1077,12 @@
 	       (or (looking-at "[ \t]*\\([^ \t\n:]+\\)[ \t]*:[ \t]*")
 		   (error "malformed -*- line"))
 	       (goto-char (match-end 0))
-	       (let ((key (intern (downcase (buffer-substring
-					     (match-beginning 1)
-					     (match-end 1)))))
+	       ;; There used to be a downcase here,
+	       ;; but the manual didn't say so,
+	       ;; and people want to set var names that aren't all lc.
+	       (let ((key (intern (buffer-substring
+				   (match-beginning 1)
+				   (match-end 1))))
 		     (val (save-restriction
 			    (narrow-to-region (point) end)
 			    (read (current-buffer)))))