# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 762722694 0
# Node ID ac2ef13dca1bbd8082fc778390119387fb7654ef
# Parent  1dbec303c87b8dcf14b98aabab46b9491d7ea22c
(Finsert_file_contents): If undo_list was t, leave it t.

(Finsert_file_contents): Use del_range_1.

diff -r 1dbec303c87b -r ac2ef13dca1b src/fileio.c
--- a/src/fileio.c	Thu Mar 03 19:23:59 1994 +0000
+++ b/src/fileio.c	Thu Mar 03 19:24:54 1994 +0000
@@ -2681,8 +2681,7 @@
       /* 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));
+      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);
     }
@@ -2784,7 +2783,8 @@
 
   if (!NILP (visit))
     {
-      current_buffer->undo_list = Qnil;
+      if (!EQ (current_buffer->undo_list, Qt))
+	current_buffer->undo_list = Qnil;
 #ifdef APOLLO
       stat (XSTRING (filename)->data, &st);
 #endif