# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 772583692 0
# Node ID ad595e4e165c85dfec00dfd18be09bbd768c5a55
# Parent  ce94573db44db0424404ebe0e1fe9c592fa41a5b
(send_process): Major rewrite.
Don't put in a C-d unless a single line is too long.
Read process input whenever output gets stuck.
Relocate BUF if we read input.  New arg OBJECT.
(Fprocess_send_region, Fprocess_send_string, process_send_signal)
(Fprocess_send_eof): Pass new arg OBJECT.

diff -r ce94573db44d -r ad595e4e165c src/buffer.c
--- a/src/buffer.c	Sat Jun 25 22:34:25 1994 +0000
+++ b/src/buffer.c	Sat Jun 25 22:34:52 1994 +0000
@@ -2115,25 +2115,33 @@
   (overlay, prop, value)
      Lisp_Object overlay, prop, value;
 {
-  Lisp_Object plist, tail;
+  Lisp_Object plist, tail, buffer;
 
   CHECK_OVERLAY (overlay, 0);
 
-  tail = Fmarker_buffer (OVERLAY_START (overlay));
-  if (! NILP (tail))
-    redisplay_region (XMARKER (OVERLAY_START (overlay))->buffer,
-		      marker_position (OVERLAY_START (overlay)),
-		      marker_position (OVERLAY_END   (overlay)));
-  
+  buffer = Fmarker_buffer (OVERLAY_START (overlay));
+
   plist = Fcdr_safe (XCONS (overlay)->cdr);
 
   for (tail = plist;
        CONSP (tail) && CONSP (XCONS (tail)->cdr);
        tail = XCONS (XCONS (tail)->cdr)->cdr)
-    {
-      if (EQ (XCONS (tail)->car, prop))
+    if (EQ (XCONS (tail)->car, prop))
+      {
+	/* If actually changing the property, mark redisplay needed.  */
+	if (! NILP (buffer) && !EQ (XCONS (XCONS (tail)->cdr)->car, value))
+	  redisplay_region (buffer,
+			    marker_position (OVERLAY_START (overlay)),
+			    marker_position (OVERLAY_END   (overlay)));
+
 	return XCONS (XCONS (tail)->cdr)->car = value;
-    }
+      }
+
+  /* Actually changing the property; mark redisplay needed.  */
+  if (! NILP (buffer))
+    redisplay_region (buffer,
+		      marker_position (OVERLAY_START (overlay)),
+		      marker_position (OVERLAY_END   (overlay)));
 
   if (! CONSP (XCONS (overlay)->cdr))
     XCONS (overlay)->cdr = Fcons (Qnil, Qnil);