From 294fa707e0c7e1b94b0815b91ed0e7989ac76896 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 11 Feb 2009 03:52:56 +0000 Subject: [PATCH] (Fwrite_region): !NILP -> CONSP. --- src/ChangeLog | 4 ++++ src/fileio.c | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/src/ChangeLog b/src/ChangeLog index e6f380e2db4..724c95fdaa2 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2009-02-11 Stefan Monnier + + * fileio.c (Fwrite_region): !NILP -> CONSP. + 2009-02-10 Andreas Schwab * process.c (send_process): Properly relocate pointer into data diff --git a/src/fileio.c b/src/fileio.c index 5f91da53585..5b96949dcc4 100644 --- a/src/fileio.c +++ b/src/fileio.c @@ -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))) -- 2.39.5