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

for End.

1 files changed, 5 insertions, 4 deletions

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)))