mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

(printchar, strout): Call message_dolog.

Browse Source
This commit is contained in:
Karl Heuer 1995-01-13 02:22:54 +00:00
parent 3d3938e185
commit 5259c73786
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/print.c
View File

@ -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);