# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 772749848 0
# Node ID 40e02f4c8ae17a78d64560afe96e8dc46923b548
# Parent  1aaf0461446d19fdbcd0f6ca375d6a8a65c6d5da
(a_write): Verify that *annot is a cons.

diff -r 1aaf0461446d -r 40e02f4c8ae1 src/fileio.c
--- a/src/fileio.c	Sun Jun 26 18:14:13 1994 +0000
+++ b/src/fileio.c	Mon Jun 27 20:44:08 1994 +0000
@@ -3296,7 +3296,7 @@
   int nextpos;
   int lastpos = pos + len;
 
-  while (1)
+  while (CONSP (*annot))
     {
       tem = Fcar_safe (Fcar (*annot));
       if (INTEGERP (tem) && XINT (tem) >= pos && XFASTINT (tem) <= lastpos)