From bf3428a1e41d32f256bfa89f5da6b8e95f36d956 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 28 May 2002 20:25:46 +0000 Subject: [PATCH] (Fwrite_region): If START is a string, don't make any annotations. --- src/fileio.c | 26 +++++++++++++++++--------- 1 file changed, 17 insertions(+), 9 deletions(-) diff --git a/src/fileio.c b/src/fileio.c index 2f658f9bee0..4999e284c84 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 -- 2.39.2