Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
da09b92b
Commit
da09b92b
authored
Jun 13, 1998
by
Richard M. Stallman
Browse files
(user-init-file): Default value now nil.
(local-enable-local-variables): New variable. (set-auto-mode): Test it.
parent
341ce5a7
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
8 additions
and
3 deletions
+8
-3
lisp/files.el
lisp/files.el
+8
-3
No files found.
lisp/files.el
View file @
da09b92b
...
...
@@ -331,6 +331,11 @@ specifications and ignores this variable."
(
sexp
:tag
"Query"
:format
"%t\n"
other
))
:group
'find-file
)
(
defvar
local-enable-local-variables
t
"Like `enable-local-variables' but meant for buffer-local bindings.
If a major mode sets this to nil, buffer-locally, then any local
variables list in the file will be ignored."
)
(
defcustom
enable-local-eval
'maybe
"*Control processing of the \"variable\" `eval' in a file's local variables.
The value can be t, nil or something else.
...
...
@@ -1327,9 +1332,8 @@ If it matches, mode MODE is selected.")
When checking `inhibit-first-line-modes-regexps', we first discard
from the end of the file name anything that matches one of these regexps."
)
(
defvar
user-init-file
""
; set by command-line
"File name including directory of user's initialization file."
)
(
defvar
user-init-file
nil
"File name, including directory, of user's initialization file."
)
(
defun
set-auto-mode
(
&optional
just-from-file-name
)
"Select major mode appropriate for current buffer.
...
...
@@ -1353,6 +1357,7 @@ and we don't even do that unless it would come from the file name."
(
goto-char
(
point-min
))
(
skip-chars-forward
" \t\n"
)
(
and
enable-local-variables
local-enable-local-variables
;; Don't look for -*- if this file name matches any
;; of the regexps in inhibit-first-line-modes-regexps.
(
let
((
temp
inhibit-first-line-modes-regexps
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment