From: Roland McGrath <roland@gnu.org>
Date: Tue, 28 Jun 1994 19:00:30 +0000 (+0000)
Subject: (a_write): Loop while *ANNOT is listp, not consp.  Previous code omitted
X-Git-Tag: emacs-19.34~7774
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=eb15aa1822623116d37b654465b55c56ffe6663d;p=emacs.git

(a_write): Loop while *ANNOT is listp, not consp.  Previous code omitted
all data from output files when *ANNOT was nil.
---

diff --git a/src/fileio.c b/src/fileio.c
index 0a04f713d7b..1446eaf4033 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -3296,7 +3296,7 @@ a_write (desc, addr, len, pos, annot)
   int nextpos;
   int lastpos = pos + len;
 
-  while (CONSP (*annot))
+  while (NILP (*annot) || CONSP (*annot))
     {
       tem = Fcar_safe (Fcar (*annot));
       if (INTEGERP (tem) && XINT (tem) >= pos && XFASTINT (tem) <= lastpos)