# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 973521205 0
# Node ID bc4bfaca97aa2994bb73d5357bfaad922008aa4e
# Parent  76c004353cebbcf0fec1cc4bf06a279e7e38ca68
(Fwrite_region): Use `visiting' rather than `visit'
when ensuring we don't do visit in indirect buffer.

diff -r 76c004353ceb -r bc4bfaca97aa src/fileio.c
--- a/src/fileio.c	Mon Nov 06 13:21:09 2000 +0000
+++ b/src/fileio.c	Mon Nov 06 14:33:25 2000 +0000
@@ -4411,7 +4411,8 @@
   Lisp_Object visit_file;
   Lisp_Object annotations;
   Lisp_Object encoded_filename;
-  int visiting, quietly;
+  int visiting = (EQ (visit, Qt) || STRINGP (visit));
+  int quietly = !NILP (visit);
   struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5;
   struct buffer *given_buffer;
 #ifdef DOS_NT
@@ -4419,7 +4420,7 @@
 #endif /* DOS_NT */
   struct coding_system coding;
 
-  if (current_buffer->base_buffer && ! NILP (visit))
+  if (current_buffer->base_buffer && visiting)
     error ("Cannot do file visiting in an indirect buffer");
 
   if (!NILP (start) && !STRINGP (start))
@@ -4531,9 +4532,6 @@
     visit_file = filename;
   UNGCPRO;
 
-  visiting = (EQ (visit, Qt) || STRINGP (visit));
-  quietly = !NILP (visit);
-
   annotations = Qnil;
 
   if (NILP (lockname))