mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-27 15:52:00 -08:00
Code Issues Projects Releases Wiki Activity

(send_process): Major rewrite.

Browse source 
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.
This commit is contained in:
Richard M. Stallman 1994-06-25 22:34:52 +00:00
parent 790f39e781
commit 274a942536
1 changed files with 18 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

28
src/buffer.c
View file

@ -2115,25 +2115,33 @@ DEFUN ("overlay-put", Foverlay_put, Soverlay_put, 3, 3, 0,
(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);