Mercurial > emacs

diff src/fileio.c @ 8079:3f543986a45a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(a_write): Loop while *ANNOT is listp, not consp. Previous code omitted all data from output files when *ANNOT was nil.
author Roland McGrath <roland@gnu.org>
date Tue, 28 Jun 1994 19:00:30 +0000
parents 40e02f4c8ae1
children b5cc015a3698
line wrap: on
line diff
--- a/src/fileio.c	Tue Jun 28 18:41:05 1994 +0000
+++ b/src/fileio.c	Tue Jun 28 19:00:30 1994 +0000
@@ -3296,7 +3296,7 @@
   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)