From 5259c73786e38510a625beff715dcea233480cf7 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 13 Jan 1995 02:22:54 +0000 Subject: [PATCH] (printchar, strout): Call message_dolog. --- src/print.c | 18 +++++++++++++++++- 1 file changed, 17 insertions(+), 1 deletion(-) diff --git a/src/print.c b/src/print.c index 8c341aabfc5..c6bc0c59762 100644 --- a/src/print.c +++ b/src/print.c @@ -65,10 +65,16 @@ int print_escape_newlines; Lisp_Object Qprint_escape_newlines; -/* Nonzero means print newline before next minibuffer message. +/* Nonzero means print newline to stdout before next minibuffer message. Defined in xdisp.c */ extern int noninteractive_need_newline; + +/* Nonzero means print newline to message log before next message. + Defined in xdisp.c */ + +extern int message_log_need_newline; + #ifdef MAX_PRINT_CHARS static int print_chars; static int max_print; @@ -206,12 +212,17 @@ printchar (ch, fun) if (echo_area_glyphs != FRAME_MESSAGE_BUF (mini_frame) || !message_buf_print) { + if (message_log_need_newline) + message_dolog ("", 0, 1); + message_log_need_newline = 0; echo_area_glyphs = FRAME_MESSAGE_BUF (mini_frame); printbufidx = 0; echo_area_glyphs_length = 0; message_buf_print = 1; } + message_dolog (&ch, 1, 0); + message_log_need_newline = 1; if (printbufidx < FRAME_WIDTH (mini_frame) - 1) FRAME_MESSAGE_BUF (mini_frame)[printbufidx++] = ch; FRAME_MESSAGE_BUF (mini_frame)[printbufidx] = 0; @@ -263,12 +274,17 @@ strout (ptr, size, printcharfun) if (echo_area_glyphs != FRAME_MESSAGE_BUF (mini_frame) || !message_buf_print) { + if (message_log_need_newline) + message_dolog ("", 0, 1); + message_log_need_newline = 0; echo_area_glyphs = FRAME_MESSAGE_BUF (mini_frame); printbufidx = 0; echo_area_glyphs_length = 0; message_buf_print = 1; } + message_dolog (ptr, i, 0); + message_log_need_newline = 1; if (i > FRAME_WIDTH (mini_frame) - printbufidx - 1) i = FRAME_WIDTH (mini_frame) - printbufidx - 1; bcopy (ptr, &FRAME_MESSAGE_BUF (mini_frame) [printbufidx], i); -- 2.39.5