# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1022617546 0
# Node ID 54b933234eb44100dd346d722ba6b9bbd48e629e
# Parent  f1be57638503597de191870e46a16df0180015cc
(Fwrite_region): If START is a string, don't make any annotations.

diff -r f1be57638503 -r 54b933234eb4 src/fileio.c
--- a/src/fileio.c	Tue May 28 20:24:32 2002 +0000
+++ b/src/fileio.c	Tue May 28 20:25:46 2002 +0000
@@ -4827,11 +4827,16 @@
   count1 = specpdl_ptr - specpdl;
 
   given_buffer = current_buffer;
-  annotations = build_annotations (start, end);
-  if (current_buffer != given_buffer)
+
+  if (!STRINGP (start))
     {
-      XSETFASTINT (start, BEGV);
-      XSETFASTINT (end, ZV);
+      annotations = build_annotations (start, end);
+
+      if (current_buffer != given_buffer)
+	{
+	  XSETFASTINT (start, BEGV);
+	  XSETFASTINT (end, ZV);
+	}
     }
 
   UNGCPRO;
@@ -4847,12 +4852,15 @@
   Vlast_coding_system_used = coding.symbol;
 
   given_buffer = current_buffer;
-  annotations = build_annotations_2 (start, end,
-				     coding.pre_write_conversion, annotations);
-  if (current_buffer != given_buffer)
+  if (! STRINGP (start))
     {
-      XSETFASTINT (start, BEGV);
-      XSETFASTINT (end, ZV);
+      annotations = build_annotations_2 (start, end,
+					 coding.pre_write_conversion, annotations);
+      if (current_buffer != given_buffer)
+	{
+	  XSETFASTINT (start, BEGV);
+	  XSETFASTINT (end, ZV);
+	}
     }
 
 #ifdef CLASH_DETECTION