From 1c26a6f3af62611e61364857b67d64cef22d888c Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Mon, 5 Jun 1995 12:30:11 +0000 Subject: [PATCH] (hack-local-variables-prop-line): Don't downcase var name. --- lisp/files.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/files.el b/lisp/files.el index 58efd8042c5..baf99dbe35d 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -1077,9 +1077,12 @@ If `enable-local-variables' is nil, this function does not check for a (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))))) -- 2.39.2