Mercurial > emacs
changeset 60711:50530a0138fe
(hack-local-variables): Do a case-insensitive search
for End.
| author | David Ponce <david@dponce.com> |
|---|---|
| date | Fri, 18 Mar 2005 08:07:55 +0000 |
| parents | 0c8f7494ab9d |
| children | d37e83a20683 |
| files | lisp/files.el |
| diffstat | 1 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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)))