diff options
| author | Richard M. Stallman | 1994-06-27 20:44:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-06-27 20:44:08 +0000 |
| commit | f4a3a8c96b85a3dae9fd6bf18523fee6b6675272 (patch) | |
| tree | b161a75cccb83c831e7ee26d2f2b19115240b27b /src | |
| parent | 7d637a0d6d20c58be812272f045e95930e0a0250 (diff) | |
| download | emacs-f4a3a8c96b85a3dae9fd6bf18523fee6b6675272.tar.gz emacs-f4a3a8c96b85a3dae9fd6bf18523fee6b6675272.zip | |
(a_write): Verify that *annot is a cons.
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 08632ab1ff8..0a04f713d7b 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 (1) | 3299 | while (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) |