From: David Ponce <david@dponce.com>
Date: Fri, 18 Mar 2005 08:07:55 +0000 (+0000)
Subject: (hack-local-variables): Do a case-insensitive search
X-Git-Tag: ttn-vms-21-2-B4~1714
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5a146628e5a041b653dd34ff5705d0356381d083;p=emacs.git

(hack-local-variables): Do a case-insensitive search
for End.
---

diff --git a/lisp/files.el b/lisp/files.el
index a4bb4f86d4e..ebd4d469f5c 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2247,10 +2247,11 @@ is specified, returning t if it is specified."
 		endpos
 		(thisbuf (current-buffer)))
 	    (save-excursion
-	      (if (not (re-search-forward
-			(concat prefix "[ \t]*End:[ \t]*" suffix)
-			nil t))
-		  (error "Local variables list is not properly terminated"))
+	      (unless (let ((case-fold-search t))
+			(re-search-forward
+			 (concat prefix "[ \t]*End:[ \t]*" suffix)
+			 nil t))
+		(error "Local variables list is not properly terminated"))
 	      (beginning-of-line)
 	      (setq endpos (point)))