Mercurial > emacs
comparison src/fileio.c @ 101935:b6d5d903f0ce
(Fwrite_region): !NILP -> CONSP.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 11 Feb 2009 03:52:56 +0000 |
| parents | dc93dbd4d490 |
| children | 54ac3994d290 |
comparison
equal
deleted
inserted
replaced
| 101934:9bfebe85710d | 101935:b6d5d903f0ce |
|---|---|
| 4649 | 4649 |
| 4650 /* Discard the unwind protect for close_file_unwind. */ | 4650 /* Discard the unwind protect for close_file_unwind. */ |
| 4651 specpdl_ptr = specpdl + count1; | 4651 specpdl_ptr = specpdl + count1; |
| 4652 | 4652 |
| 4653 /* Call write-region-post-annotation-function. */ | 4653 /* Call write-region-post-annotation-function. */ |
| 4654 while (!NILP (Vwrite_region_annotation_buffers)) | 4654 while (CONSP (Vwrite_region_annotation_buffers)) |
| 4655 { | 4655 { |
| 4656 Lisp_Object buf = XCAR (Vwrite_region_annotation_buffers); | 4656 Lisp_Object buf = XCAR (Vwrite_region_annotation_buffers); |
| 4657 if (!NILP (Fbuffer_live_p (buf))) | 4657 if (!NILP (Fbuffer_live_p (buf))) |
| 4658 { | 4658 { |
| 4659 Fset_buffer (buf); | 4659 Fset_buffer (buf); |