(Fwrite_region): !NILP -> CONSP.

294fa707 · Stefan Monnier · 352f6bff · 294fa707 · 294fa707
Commit 294fa707 authored Feb 11, 2009 by Stefan Monnier
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 1 deletion

src/ChangeLog src/ChangeLog +4 -0

src/fileio.c src/fileio.c +1 -1

No files found.
--- a/src/ChangeLog
+++ b/src/ChangeLog
+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

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