2247 |
endpos |
endpos |
2248 |
(thisbuf (current-buffer))) |
(thisbuf (current-buffer))) |
2249 |
(save-excursion |
(save-excursion |
2250 |
(if (not (re-search-forward |
(unless (let ((case-fold-search t)) |
2251 |
(concat prefix "[ \t]*End:[ \t]*" suffix) |
(re-search-forward |
2252 |
nil t)) |
(concat prefix "[ \t]*End:[ \t]*" suffix) |
2253 |
(error "Local variables list is not properly terminated")) |
nil t)) |
2254 |
|
(error "Local variables list is not properly terminated")) |
2255 |
(beginning-of-line) |
(beginning-of-line) |
2256 |
(setq endpos (point))) |
(setq endpos (point))) |
2257 |
|
|