From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 11 Feb 2009 03:52:56 +0000 (+0000)
Subject: (Fwrite_region): !NILP -> CONSP.
X-Git-Tag: emacs-pretest-23.0.91~300
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=294fa707e0c7e1b94b0815b91ed0e7989ac76896;p=emacs.git

(Fwrite_region): !NILP -> CONSP.
---

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  <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
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)))