(Fwrite_region): Avoid initializer for Lisp_Object.

diff --git a/src/ChangeLog b/src/ChangeLog
index 33c47ba0d0422e47148a7b2a46f37d897bb6f35d..678e80bb216fe6896f99b69a47eacc52b34f1719 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2001-11-17  Richard M. Stallman  <rms@gnu.org>
+
+       * fileio.c (Fwrite_region): Avoid initializer for Lisp_Object.
+
 2001-11-17  Jason Rumney  <jasonr@gnu.org>
 
        * xterm.c (notice_overwritten_cursor): Take care of end < 0 case.

diff --git a/src/fileio.c b/src/fileio.c
index 9f7c72e22216927ec4c1782870b815f8dd7ef097..93aae5da502708b8dba11f755cbb4103ee38b3ef 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -4680,7 +4680,7 @@ This does code conversion according to the value of
 #endif /* VMS */
   Lisp_Object handler;
   Lisp_Object visit_file;
-  Lisp_Object annotations = Qnil;
+  Lisp_Object annotations;
   Lisp_Object encoded_filename;
   int visiting = (EQ (visit, Qt) || STRINGP (visit));
   int quietly = !NILP (visit);
@@ -4718,6 +4718,8 @@ This does code conversion according to the value of
   if (NILP (lockname))
     lockname = visit_file;
 
+  annotations = Qnil;
+
   GCPRO5 (start, filename, annotations, visit_file, lockname);
 
   /* If the file name has special constructs in it,