From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 9 Apr 1994 19:34:45 +0000 (+0000)
Subject: (make_buffer_string): Copy properties whenever we have some
X-Git-Tag: emacs-19.34~9081
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=36b0d50ec053f2e26be268f4b5f815aaa37167e0;p=emacs.git

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

diff --git a/src/editfns.c b/src/editfns.c
index fd965e330c8..fbabf5809cc 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -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);
 
 #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