diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-01-13 02:22:54 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-01-13 02:22:54 +0000 |
| commit | 5259c73786e38510a625beff715dcea233480cf7 (patch) | |
| tree | b7aaae68d09e14d6dc0e4470d6f51dc15c52a36e | |
| parent | 3d3938e1851677268f6f8624f5dc8642f8403fc8 (diff) | |
| download | emacs-5259c73786e38510a625beff715dcea233480cf7.tar.gz | |
(printchar, strout): Call message_dolog.
| -rw-r--r-- | src/print.c | 18 |
1 files changed, 17 insertions, 1 deletions
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); |