# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 765920085 0
# Node ID 6e53158ad17df443399bcad79934814ad5e0fd73
# Parent  0cedd76336a0d68f2b496fcfa2464e0319a78577
(make_buffer_string): Copy properties whenever we have some
even if they don't change.

diff -r 0cedd76336a0 -r 6e53158ad17d src/editfns.c
--- a/src/editfns.c	Sat Apr 09 19:01:54 1994 +0000
+++ b/src/editfns.c	Sat Apr 09 19:34:45 1994 +0000
@@ -900,7 +900,7 @@
 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 @@
   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)
+  if (XINT (tem) != end || !NILP (tem1))
     copy_intervals_to_string (result, current_buffer, start, end - start);
 #endif