(Fwrite_region): Avoid initializer for Lisp_Object.

2 files changed, 7 insertions, 1 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 33c47ba0d04..678e80bb216 100644
--- 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 9f7c72e2221..93aae5da502 100644
--- 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,