Mercurial > emacs
changeset 8079:3f543986a45a
(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 | 1dd92ac02141 |
| children | fa224a1d7aa1 |
| files | src/fileio.c |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
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)