comparison src/editfns.c @ 6772:6e53158ad17d

(make_buffer_string): Copy properties whenever we have some even if they don't change.

6771:0cedd76336a0

Lisp_Object
make_buffer_string (start, end)
     int start, end;
{
  Lisp_Object result, tem;

  if (start < GPT && GPT < end)
    move_gap (start);

  result = make_uninit_string (end - start);
  bcopy (&FETCH_CHAR (start), XSTRING (result)->data, end - start);

  tem = Fnext_property_change (make_number (start), Qnil, make_number (end));

#ifdef USE_TEXT_PROPERTIES
  if (XINT (tem) != end)
    copy_intervals_to_string (result, current_buffer, start, end - start);
#endif

  return result;
}

6772:6e53158ad17d

Lisp_Object
make_buffer_string (start, end)
     int start, end;
{
  Lisp_Object result, tem, tem1;

  if (start < GPT && GPT < end)
    move_gap (start);

  result = make_uninit_string (end - start);
  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);

#ifdef USE_TEXT_PROPERTIES
  if (XINT (tem) != end || !NILP (tem1))
    copy_intervals_to_string (result, current_buffer, start, end - start);
#endif

  return result;
}