diff options
| author | David Ponce <david@dponce.com> | 2005-03-18 08:07:55 +0000 |
|---|---|---|
| committer | David Ponce <david@dponce.com> | 2005-03-18 08:07:55 +0000 |
| commit | 5a146628e5a041b653dd34ff5705d0356381d083 (patch) | |
| tree | f7deedeb826b7b69f07c89adb8502339394cb033 /lisp/files.el | |
| parent | 42f73fb49aabda9afb8a36e88521dfb83a41da3f (diff) | |
| download | emacs-5a146628e5a041b653dd34ff5705d0356381d083.tar.gz | |
(hack-local-variables): Do a case-insensitive search
for End.
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 9 |
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))) |