mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(inhibit-first-line-modes-regexps): Renamed from

Browse Source 
inhibit-local-variables-regexps.
This commit is contained in:
Richard M. Stallman 1994-04-09 22:27:31 +00:00
parent 4633707b6b
commit 45fb3bb841
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/files.el
View File

@ -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)))