# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1234324376 0
# Node ID b6d5d903f0ce33d9863d11c9bbec4051b0caa836
# Parent  9bfebe85710dfcec2e5efa87033fefe132cbae6c
(Fwrite_region): !NILP -> CONSP.

diff -r 9bfebe85710d -r b6d5d903f0ce src/ChangeLog
--- a/src/ChangeLog	Wed Feb 11 02:25:06 2009 +0000
+++ b/src/ChangeLog	Wed Feb 11 03:52:56 2009 +0000
@@ -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 -r 9bfebe85710d -r b6d5d903f0ce src/fileio.c
--- a/src/fileio.c	Wed Feb 11 02:25:06 2009 +0000
+++ b/src/fileio.c	Wed Feb 11 03:52:56 2009 +0000
@@ -4651,7 +4651,7 @@
   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)))