Commit bf3428a1 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(Fwrite_region): If START is a string, don't make any annotations.

parent 2520dc0c
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment