diff options
| author | Roland McGrath | 1994-06-28 19:00:30 +0000 |
|---|---|---|
| committer | Roland McGrath | 1994-06-28 19:00:30 +0000 |
| commit | eb15aa1822623116d37b654465b55c56ffe6663d (patch) | |
| tree | 41fc7ec1798a5e9bf73e8d5eb10b463026ec52c1 /src | |
| parent | ccb1d39acef811b9d392a4b1c0f577a81ce32b76 (diff) | |
| download | emacs-eb15aa1822623116d37b654465b55c56ffe6663d.tar.gz emacs-eb15aa1822623116d37b654465b55c56ffe6663d.zip | |
(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')
| -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) | |||
| 3296 | int nextpos; | 3296 | int nextpos; |
| 3297 | int lastpos = pos + len; | 3297 | int lastpos = pos + len; |
| 3298 | 3298 | ||
| 3299 | while (CONSP (*annot)) | 3299 | while (NILP (*annot) || CONSP (*annot)) |
| 3300 | { | 3300 | { |
| 3301 | tem = Fcar_safe (Fcar (*annot)); | 3301 | tem = Fcar_safe (Fcar (*annot)); |
| 3302 | if (INTEGERP (tem) && XINT (tem) >= pos && XFASTINT (tem) <= lastpos) | 3302 | if (INTEGERP (tem) && XINT (tem) >= pos && XFASTINT (tem) <= lastpos) |