# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 807663216 0
# Node ID 029baa39289d6346b91710c91d705a0689da3bad
# Parent  2a8036f0b585ebdc38662340225acabd3627362d
(print_string): Use insert_from_string for output to buffer.

diff -r 2a8036f0b585 -r 029baa39289d src/print.c
--- a/src/print.c	Sat Aug 05 22:53:03 1995 +0000
+++ b/src/print.c	Sat Aug 05 22:53:36 1995 +0000
@@ -300,9 +300,17 @@
      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.  */