# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 756608991 0
# Node ID 83e771f33251c44e9abde99d587a7a37a3f1a8ef
# Parent  823c0cf7bbc8bfe8900b1b3f6206a1396d2a21ab
(printchar, strout): Set echo_area_glyphs_length.

diff -r 823c0cf7bbc8 -r 83e771f33251 src/print.c
--- a/src/print.c	Thu Dec 23 01:07:58 1993 +0000
+++ b/src/print.c	Thu Dec 23 01:09:51 1993 +0000
@@ -205,12 +205,14 @@
 	{
 	  echo_area_glyphs = FRAME_MESSAGE_BUF (selected_frame);
 	  printbufidx = 0;
+	  echo_area_glyphs_length = 0;
 	  message_buf_print = 1;
 	}
 
       if (printbufidx < FRAME_WIDTH (selected_frame) - 1)
 	FRAME_MESSAGE_BUF (selected_frame)[printbufidx++] = ch;
       FRAME_MESSAGE_BUF (selected_frame)[printbufidx] = 0;
+      echo_area_glyphs_length = printbufidx;
 
       return;
     }
@@ -257,6 +259,7 @@
 	{
 	  echo_area_glyphs = FRAME_MESSAGE_BUF (selected_frame);
 	  printbufidx = 0;
+	  echo_area_glyphs_length = 0;
 	  message_buf_print = 1;
 	}
 
@@ -264,6 +267,7 @@
 	i = FRAME_WIDTH (selected_frame) - printbufidx - 1;
       bcopy (ptr, &FRAME_MESSAGE_BUF (selected_frame) [printbufidx], i);
       printbufidx += i;
+      echo_area_glyphs_length = printbufidx;
       FRAME_MESSAGE_BUF (selected_frame) [printbufidx] = 0;
 
       return;