comparison src/fileio.c @ 5390:d9c81d7079f3

(Finsert_file_contents): Don't run after change hook if inserted is 0. New local `handled', set if run handler. Avoid setting modtime field if ran a handler.

5389:09148c696fa2

  int count = specpdl_ptr - specpdl;
  struct gcpro gcpro1, gcpro2;
  Lisp_Object handler, val, insval;
  Lisp_Object p;
  int total;

  val = Qnil;
  p = Qnil;

  GCPRO2 (filename, p);

     call the corresponding file handler.  */
  handler = Ffind_file_name_handler (filename);
  if (!NILP (handler))
    {
      val = call5 (handler, Qinsert_file_contents, filename, visit, beg, end);
      goto handled;
    }

  fd = -1;

    {
      current_buffer->undo_list = Qnil;
#ifdef APOLLO
      stat (XSTRING (filename)->data, &st);
#endif
      current_buffer->modtime = st.st_mtime;
      current_buffer->save_modified = MODIFF;
      current_buffer->auto_save_modified = MODIFF;
      XFASTINT (current_buffer->save_length) = Z - BEG;
#ifdef CLASH_DETECTION
      if (NILP (handler))

      /* If visiting nonexistent file, return nil.  */
      if (current_buffer->modtime == -1)
	report_file_error ("Opening input file", Fcons (filename, Qnil));
    }

  if (NILP (visit) && total > 0)
    signal_after_change (point, 0, inserted);
  
  if (inserted > 0)
    {
      p = Vafter_insert_file_functions;

5390:d9c81d7079f3

  int count = specpdl_ptr - specpdl;
  struct gcpro gcpro1, gcpro2;
  Lisp_Object handler, val, insval;
  Lisp_Object p;
  int total;
  int handled = 0;

  val = Qnil;
  p = Qnil;

  GCPRO2 (filename, p);

     call the corresponding file handler.  */
  handler = Ffind_file_name_handler (filename);
  if (!NILP (handler))
    {
      val = call5 (handler, Qinsert_file_contents, filename, visit, beg, end);
      handled = 1;
      goto handled;
    }

  fd = -1;

    {
      current_buffer->undo_list = Qnil;
#ifdef APOLLO
      stat (XSTRING (filename)->data, &st);
#endif

      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;
#ifdef CLASH_DETECTION
      if (NILP (handler))

      /* If visiting nonexistent file, return nil.  */
      if (current_buffer->modtime == -1)
	report_file_error ("Opening input file", Fcons (filename, Qnil));
    }

  if (inserted > 0 && NILP (visit) && total > 0)
    signal_after_change (point, 0, inserted);
  
  if (inserted > 0)
    {
      p = Vafter_insert_file_functions;