From: Richard M. Stallman Date: Sat, 9 Apr 1994 22:27:31 +0000 (+0000) Subject: (inhibit-first-line-modes-regexps): Renamed from X-Git-Tag: emacs-19.34~9073 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=45fb3bb841c4fc3706a9c3bff34f3eac0992976a;p=emacs.git (inhibit-first-line-modes-regexps): Renamed from inhibit-local-variables-regexps. --- diff --git a/lisp/files.el b/lisp/files.el index 0cd4a955403..2b3590176f3 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -859,8 +859,8 @@ The car of each element is compared with the name of the interpreter specified in the first line. If it matches, mode MODE is selected.") -(defconst inhibit-local-variables-regexps '("\\.tar$") - "List of regexps; if one matches a file name, don't look for local vars.") +(defconst inhibit-first-line-modes-regexps '("\\.tar$") + "List of regexps; if one matches a file name, don't look for `-*-'.") (defvar user-init-file "" ; set by command-line @@ -882,8 +882,8 @@ If `enable-local-variables' is nil, this function does not check for a (skip-chars-forward " \t\n") (and enable-local-variables ;; Don't look for -*- if this file name matches any - ;; of the regexps in inhibit-local-variables-regexps. - (let ((temp inhibit-local-variables-regexps)) + ;; of the regexps in inhibit-first-line-modes-regexps. + (let ((temp inhibit-first-line-modes-regexps)) (while (and temp (not (string-match (car temp) buffer-file-name)))