# HG changeset patch
# User David Ponce <david@dponce.com>
# Date 1111133275 0
# Node ID 50530a0138fede60fc203da8b0dbb11cbe97031f
# Parent  0c8f7494ab9daa5a4716e6ba0eb8fedf8508faf8
(hack-local-variables): Do a case-insensitive search
for End.

diff -r 0c8f7494ab9d -r 50530a0138fe lisp/files.el
--- a/lisp/files.el	Fri Mar 18 08:07:17 2005 +0000
+++ b/lisp/files.el	Fri Mar 18 08:07:55 2005 +0000
@@ -2247,10 +2247,11 @@
 		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)))