Mercurial > emacs
changeset 3364:3dd9b89c6a17
(inhibit-local-variables-regexps): New variable.
(set-auto-mode): Handle inhibit-local-variables-regexps.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 31 May 1993 21:50:52 +0000 |
| parents | 6dec27d736e2 |
| children | 0865c1679cd8 |
| files | lisp/files.el |
| diffstat | 1 files changed, 11 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Mon May 31 21:28:36 1993 +0000 +++ b/lisp/files.el Mon May 31 21:50:52 1993 +0000 @@ -790,6 +790,9 @@ Each element looks like (REGEXP . FUNCTION). Visiting a file whose name matches REGEXP causes FUNCTION to be called.") +(defconst inhibit-local-variables-regexps '("\\.tar$") + "List of regexps; if one matches a file name, don't look for local vars.") + (defun set-auto-mode () "Select major mode appropriate for current buffer. This checks for a -*- mode tag in the buffer's text, or @@ -805,6 +808,14 @@ (goto-char (point-min)) (skip-chars-forward " \t\n") (if (and enable-local-variables + ;; Don't look for -*- if this file name matches any + ;; of the regexps in inhibit-local-variables-regexps. + (not (let ((temp inhibit-local-variables-regexps)) + (while (and temp + (not (string-match (car temp) + buffer-file-name))) + (setq temp (cdr temp))) + (not temp))) (search-forward "-*-" (save-excursion ;; If the file begins with "#!" ;; (exec interpreter magic), look