Mercurial > emacs

changeset 6772:6e53158ad17d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(make_buffer_string): Copy properties whenever we have some even if they don't change.
author Richard M. Stallman <rms@gnu.org>
date Sat, 09 Apr 1994 19:34:45 +0000
parents 0cedd76336a0
children ed16e189b9a5
files src/editfns.c
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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