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

(make_buffer_string): Copy properties whenever we have some

even if they don't change.
parent 2ff52571
......@@ -900,7 +900,7 @@ Lisp_Object
make_buffer_string (start, end)
int start, end;
Lisp_Object result, tem;
Lisp_Object result, tem, tem1;
if (start < GPT && GPT < end)
move_gap (start);
......@@ -909,9 +909,10 @@ make_buffer_string (start, end)
bcopy (&FETCH_CHAR (start), XSTRING (result)->data, end - start);
tem = Fnext_property_change (make_number (start), Qnil, make_number (end));
tem1 = Ftext_properties_at (make_number (start), Qnil);
if (XINT (tem) != end)
if (XINT (tem) != end || !NILP (tem1))
copy_intervals_to_string (result, current_buffer, start, end - start);
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