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
a7e82472
Commit
a7e82472
authored
Dec 31, 1993
by
Richard M. Stallman
Browse files
(Finsert_file_contents): Avoid setting buffer-file-name field if ran a handler.
Get rid of local var `handled'.
parent
79a7046c
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
5 deletions
+5
-5
src/fileio.c
src/fileio.c
+5
-5
No files found.
src/fileio.c
View file @
a7e82472
...
...
@@ -2394,7 +2394,6 @@ If VISIT is non-nil, BEG and END must be nil.")
Lisp_Object
handler
,
val
,
insval
;
Lisp_Object
p
;
int
total
;
int
handled
=
0
;
val
=
Qnil
;
p
=
Qnil
;
...
...
@@ -2412,7 +2411,6 @@ If VISIT is non-nil, BEG and END must be nil.")
if
(
!
NILP
(
handler
))
{
val
=
call5
(
handler
,
Qinsert_file_contents
,
filename
,
visit
,
beg
,
end
);
handled
=
1
;
goto
handled
;
}
...
...
@@ -2544,8 +2542,11 @@ If VISIT is non-nil, BEG and END must be nil.")
stat
(
XSTRING
(
filename
)
->
data
,
&
st
);
#endif
if
(
!
handled
)
current_buffer
->
modtime
=
st
.
st_mtime
;
if
(
NILP
(
handler
))
{
current_buffer
->
modtime
=
st
.
st_mtime
;
current_buffer
->
filename
=
filename
;
}
current_buffer
->
save_modified
=
MODIFF
;
current_buffer
->
auto_save_modified
=
MODIFF
;
...
...
@@ -2558,7 +2559,6 @@ If VISIT is non-nil, BEG and END must be nil.")
unlock_file
(
filename
);
}
#endif
/* CLASH_DETECTION */
current_buffer
->
filename
=
filename
;
/* If visiting nonexistent file, return nil. */
if
(
current_buffer
->
modtime
==
-
1
)
report_file_error
(
"Opening input file"
,
Fcons
(
filename
,
Qnil
));
...
...
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