(Finsert_file_contents): Signal error if visiting file

in a non-empty buffer.

diff --git a/src/fileio.c b/src/fileio.c
index 17be8acfaab0553ef40d508222f01d1dfac0db5c..c3f2a2c9cba810b4c962901ffe6e7d31ccf05bce 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -3463,9 +3463,13 @@ actually used.")
   /* Prevent redisplay optimizations.  */
   current_buffer->clip_changed = 1;
 
-  if (!NILP (beg) || !NILP (end))
-    if (!NILP (visit))
-      error ("Attempt to visit less than an entire file");
+  if (!NILP (visit))
+    {
+      if (!NILP (beg) || !NILP (end))
+       error ("Attempt to visit less than an entire file");
+      if (BEG < Z && NILP (replace))
+       error ("Cannot do file visiting in a non-empty buffer");
+    }
 
   if (!NILP (beg))
     CHECK_NUMBER (beg, 0);