Mercurial > emacs

changeset 12782:029baa39289d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(print_string): Use insert_from_string for output to buffer.
author Richard M. Stallman <rms@gnu.org>
date Sat, 05 Aug 1995 22:53:36 +0000
parents 2a8036f0b585
children 9e1a16d1ff73
files src/print.c
diffstat 1 files changed, 10 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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.  */