Lisp_Object handler, val, insval;
Lisp_Object p;
int total;
+ int handled = 0;
val = Qnil;
p = Qnil;
if (!NILP (handler))
{
val = call5 (handler, Qinsert_file_contents, filename, visit, beg, end);
+ handled = 1;
goto handled;
}
#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;
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)