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

for End.

diff --git a/lisp/files.el b/lisp/files.el
index a4bb4f86d4e9b6e6ec7cc8cf2426daac258bfc9b..ebd4d469f5c4d9bd5ab5cb131f08e76b960f11e3 100644 (file)
--- 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)))