From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 5 Aug 1995 22:53:36 +0000 (+0000)
Subject: (print_string): Use insert_from_string for output to buffer.
X-Git-Tag: emacs-19.34~3078
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5e8878637baa007ea7b43cbfcef81d26be3448e2;p=emacs.git

(print_string): Use insert_from_string for output to buffer.
---

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.  */