diff options
| author | Roland McGrath <roland@gnu.org> | 1994-06-28 19:00:30 +0000 |
|---|---|---|
| committer | Roland McGrath <roland@gnu.org> | 1994-06-28 19:00:30 +0000 |
| commit | eb15aa1822623116d37b654465b55c56ffe6663d (patch) | |
| tree | 41fc7ec1798a5e9bf73e8d5eb10b463026ec52c1 /src/fileio.c | |
| parent | ccb1d39acef811b9d392a4b1c0f577a81ce32b76 (diff) | |
| download | emacs-eb15aa1822623116d37b654465b55c56ffe6663d.tar.gz | |
(a_write): Loop while *ANNOT is listp, not consp. Previous code omitted
all data from output files when *ANNOT was nil.
Diffstat (limited to 'src/fileio.c')
| -rw-r--r-- | src/fileio.c | 2 |
1 files changed, 1 insertions, 1 deletions
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) |