From 5a146628e5a041b653dd34ff5705d0356381d083 Mon Sep 17 00:00:00 2001 From: David Ponce Date: Fri, 18 Mar 2005 08:07:55 +0000 Subject: [PATCH] (hack-local-variables): Do a case-insensitive search for End. --- lisp/files.el | 9 +++++---- 1 file 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))) -- 2.39.2