2183 |
buffer-file-name) |
buffer-file-name) |
2184 |
(concat "buffer " |
(concat "buffer " |
2185 |
(buffer-name)))))))))) |
(buffer-name)))))))))) |
2186 |
(let (prefix prefixlen suffix beg |
(let (prefix suffix beg |
2187 |
(enable-local-eval enable-local-eval)) |
(enable-local-eval enable-local-eval)) |
2188 |
;; The prefix is what comes before "local variables:" in its line. |
;; The prefix is what comes before "local variables:" in its line. |
2189 |
;; The suffix is what comes after "local variables:" in its line. |
;; The suffix is what comes after "local variables:" in its line. |
2197 |
(buffer-substring (point) |
(buffer-substring (point) |
2198 |
(progn (beginning-of-line) (point))))) |
(progn (beginning-of-line) (point))))) |
2199 |
|
|
2200 |
(if prefix (setq prefixlen (length prefix) |
(setq prefix (if prefix (regexp-quote prefix) "^")) |
|
prefix (regexp-quote prefix))) |
|
2201 |
(if suffix (setq suffix (concat (regexp-quote suffix) "$"))) |
(if suffix (setq suffix (concat (regexp-quote suffix) "$"))) |
2202 |
(forward-line 1) |
(forward-line 1) |
2203 |
(let ((startpos (point)) |
(let ((startpos (point)) |