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

(Finsert_file_contents): Don't run after change hook

Browse Source 
if inserted is 0.  New local `handled', set if run handler.
Avoid setting modtime field if ran a handler.
This commit is contained in:
Richard M. Stallman 1993-12-31 12:56:41 +00:00
parent 93c2b1e794
commit 62bcf0098d
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/fileio.c
View File

@ -2394,6 +2394,7 @@ 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;
@ -2411,6 +2412,7 @@ 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;
}
@ -2541,7 +2543,10 @@ If VISIT is non-nil, BEG and END must be nil.")
#ifdef APOLLO
stat (XSTRING (filename)->data, &st);
#endif
current_buffer->modtime = st.st_mtime;
if (! handled)
current_buffer->modtime = st.st_mtime;
current_buffer->save_modified = MODIFF;
current_buffer->auto_save_modified = MODIFF;
XFASTINT (current_buffer->save_length) = Z - BEG;
@ -2559,7 +2564,7 @@ If VISIT is non-nil, BEG and END must be nil.")
report_file_error ("Opening input file", Fcons (filename, Qnil));
}
if (NILP (visit) && total > 0)
if (inserted > 0 && NILP (visit) && total > 0)
signal_after_change (point, 0, inserted);
if (inserted > 0)