From 5e8878637baa007ea7b43cbfcef81d26be3448e2 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 5 Aug 1995 22:53:36 +0000 Subject: [PATCH] (print_string): Use insert_from_string for output to buffer. --- src/print.c | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/src/print.c b/src/print.c index 1e83d1907e8..fc3411fe290 100644 --- a/src/print.c +++ b/src/print.c @@ -300,9 +300,17 @@ print_string (string, printcharfun) Lisp_Object string; Lisp_Object printcharfun; { - if (EQ (printcharfun, Qnil) || EQ (printcharfun, Qt)) - /* In predictable cases, strout is safe: output to buffer or frame. */ + if (EQ (printcharfun, Qt)) + /* strout is safe for output to a frame (echo area). */ strout (XSTRING (string)->data, XSTRING (string)->size, printcharfun); + else if (EQ (printcharfun, Qnil)) + { +#ifdef MAX_PRINT_CHARS + if (max_print) + print_chars += XSTRING (string)->size; +#endif /* MAX_PRINT_CHARS */ + insert_from_string (string, 0, XSTRING (string)->size, 1); + } else { /* Otherwise, fetch the string address for each character. */ -- 2.39.2