comparison src/fileio.c @ 6177:ac2ef13dca1b

(Finsert_file_contents): If undo_list was t, leave it t. (Finsert_file_contents): Use del_range_1.

6176:1dbec303c87b

	}
      immediate_quit = 0;
      /* Arrange to read only the nonmatching middle part of the file.  */
      XFASTINT (beg) = same_at_start - BEGV;
      XFASTINT (end) = st.st_size - (ZV - same_at_end);
      /* Delete the nonmatching middle part of the buffer.  */
      Fdelete_region (make_number (same_at_start), make_number (same_at_end));
      /* Insert from the file at the proper position.  */
      SET_PT (same_at_start);
    }

  total = XINT (end) - XINT (beg);

 notfound:
 handled:

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

      if (NILP (handler))

6177:ac2ef13dca1b

	}
      immediate_quit = 0;
      /* Arrange to read only the nonmatching middle part of the file.  */
      XFASTINT (beg) = same_at_start - BEGV;
      XFASTINT (end) = st.st_size - (ZV - same_at_end);
      del_range_1 (same_at_start, same_at_end - same_at_start, 0);
      /* Insert from the file at the proper position.  */
      SET_PT (same_at_start);
    }

  total = XINT (end) - XINT (beg);

 notfound:
 handled:

  if (!NILP (visit))
    {
      if (!EQ (current_buffer->undo_list, Qt))
	current_buffer->undo_list = Qnil;
#ifdef APOLLO
      stat (XSTRING (filename)->data, &st);
#endif

      if (NILP (handler))