From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 17 Nov 2001 21:08:52 +0000 (+0000)
Subject: (Fwrite_region): Avoid initializer for Lisp_Object.
X-Git-Tag: ttn-vms-21-2-B4~18427
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=65b7d3e7a74dc76b39f5b16a1467abba12ae1b88;p=emacs.git

(Fwrite_region): Avoid initializer for Lisp_Object.
---

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,