diff options
author | Richard M. Stallman <[email protected]> | 2002-05-28 20:25:46 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 2002-05-28 20:25:46 +0000 |
commit | bf3428a1e41d32f256bfa89f5da6b8e95f36d956 (patch) | |
tree | 9e4041682f1ec39a2b3d3a0812ea3628d463e540 | |
parent | 2520dc0caa5fd0cd7ff221ea9d4fe86d8623efac (diff) |
(Fwrite_region): If START is a string, don't make any annotations.
-rw-r--r-- | src/fileio.c | 26 |
1 files changed, 17 insertions, 9 deletions
diff --git a/src/fileio.c b/src/fileio.c index 2f658f9bee..4999e284c8 100644 --- a/src/fileio.c +++ b/src/fileio.c @@ -4827,11 +4827,16 @@ This does code conversion according to the value of count1 = specpdl_ptr - specpdl; given_buffer = current_buffer; - annotations = build_annotations (start, end); - if (current_buffer != given_buffer) + + if (!STRINGP (start)) { - XSETFASTINT (start, BEGV); - XSETFASTINT (end, ZV); + annotations = build_annotations (start, end); + + if (current_buffer != given_buffer) + { + XSETFASTINT (start, BEGV); + XSETFASTINT (end, ZV); + } } UNGCPRO; @@ -4847,12 +4852,15 @@ This does code conversion according to the value of Vlast_coding_system_used = coding.symbol; given_buffer = current_buffer; - annotations = build_annotations_2 (start, end, - coding.pre_write_conversion, annotations); - if (current_buffer != given_buffer) + if (! STRINGP (start)) { - XSETFASTINT (start, BEGV); - XSETFASTINT (end, ZV); + annotations = build_annotations_2 (start, end, + coding.pre_write_conversion, annotations); + if (current_buffer != given_buffer) + { + XSETFASTINT (start, BEGV); + XSETFASTINT (end, ZV); + } } #ifdef CLASH_DETECTION |