(Fwrite_region): !NILP -> CONSP.

This commit is contained in:
Stefan Monnier 2009-02-11 03:52:56 +00:00
parent 352f6bff86
commit 294fa707e0
2 changed files with 5 additions and 1 deletions

View file

@ -1,3 +1,7 @@
2009-02-11 Stefan Monnier <monnier@iro.umontreal.ca>
* fileio.c (Fwrite_region): !NILP -> CONSP.
2009-02-10 Andreas Schwab <schwab@suse.de>
* process.c (send_process): Properly relocate pointer into data

View file

@ -4651,7 +4651,7 @@ This calls `write-region-annotate-functions' at the start, and
specpdl_ptr = specpdl + count1;
/* Call write-region-post-annotation-function. */
while (!NILP (Vwrite_region_annotation_buffers))
while (CONSP (Vwrite_region_annotation_buffers))
{
Lisp_Object buf = XCAR (Vwrite_region_annotation_buffers);
if (!NILP (Fbuffer_live_p (buf)))