Commit 45fb3bb8 authored by Richard M. Stallman's avatar Richard M. Stallman

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

inhibit-local-variables-regexps.
parent 4633707b
...@@ -859,8 +859,8 @@ The car of each element is compared with ...@@ -859,8 +859,8 @@ The car of each element is compared with
the name of the interpreter specified in the first line. the name of the interpreter specified in the first line.
If it matches, mode MODE is selected.") If it matches, mode MODE is selected.")
(defconst inhibit-local-variables-regexps '("\\.tar$") (defconst inhibit-first-line-modes-regexps '("\\.tar$")
"List of regexps; if one matches a file name, don't look for local vars.") "List of regexps; if one matches a file name, don't look for `-*-'.")
(defvar user-init-file (defvar user-init-file
"" ; set by command-line "" ; set by command-line
...@@ -882,8 +882,8 @@ If `enable-local-variables' is nil, this function does not check for a ...@@ -882,8 +882,8 @@ If `enable-local-variables' is nil, this function does not check for a
(skip-chars-forward " \t\n") (skip-chars-forward " \t\n")
(and enable-local-variables (and enable-local-variables
;; Don't look for -*- if this file name matches any ;; Don't look for -*- if this file name matches any
;; of the regexps in inhibit-local-variables-regexps. ;; of the regexps in inhibit-first-line-modes-regexps.
(let ((temp inhibit-local-variables-regexps)) (let ((temp inhibit-first-line-modes-regexps))
(while (and temp (while (and temp
(not (string-match (car temp) (not (string-match (car temp)
buffer-file-name))) buffer-file-name)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment