(printchar, strout): Do QUIT for echo area output.

(PRINTFULLP): New macro.
(print): Exit if PRINTFULLP.
When printing a symbol, don't save a pointer to the name.
(PRINTFINISH): Null out print_buffer after freeing it.

diff --git a/src/print.c b/src/print.c
index bb4725a5ae7dbc80bd799d32f11922b964b6eeae..518f0205761f165bd949056550bf523913621a30 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -200,7 +200,11 @@ glyph_to_str_cpy (glyphs, str)
 #define PRINTFINISH                                    \
    if (NILP (printcharfun))                            \
      insert (print_buffer, print_buffer_pos);          \
-   if (print_buffer) free (print_buffer);              \
+   if (print_buffer)                                   \
+     {                                                 \
+       free (print_buffer);                            \
+       print_buffer = 0;                               \
+     }                                                 \
    if (MARKERP (original))                             \
      Fset_marker (original, make_number (PT), Qnil);   \
    if (old_point >= 0)                                 \
@@ -212,7 +216,14 @@ glyph_to_str_cpy (glyphs, str)
 
 #define PRINTCHAR(ch) printchar (ch, printcharfun)
 
-/* Index of first unused element of FRAME_MESSAGE_BUF(mini_frame). */
+/* Nonzero if there is no room to print any more characters
+   so print might as well return right away.  */
+
+#define PRINTFULLP()                                   \
+ (EQ (printcharfun, Qt) && !noninteractive             \
+  && printbufidx >= FRAME_WIDTH (XFRAME (WINDOW_FRAME (XWINDOW (minibuf_window)))))
+
+/* Index of first unused element of FRAME_MESSAGE_BUF (mini_frame). */
 static int printbufidx;
 
 static void
@@ -242,6 +253,8 @@ printchar (ch, fun)
       FRAME_PTR mini_frame
        = XFRAME (WINDOW_FRAME (XWINDOW (minibuf_window)));
 
+      QUIT;
+
       if (noninteractive)
        {
          putchar (ch);
@@ -306,6 +319,8 @@ strout (ptr, size, printcharfun)
       FRAME_PTR mini_frame
        = XFRAME (WINDOW_FRAME (XWINDOW (minibuf_window)));
 
+      QUIT;
+
       i = size >= 0 ? size : strlen (ptr);
 #ifdef MAX_PRINT_CHARS
       if (max_print)
@@ -841,6 +856,8 @@ print (obj, printcharfun, escapeflag)
   char buf[30];
 
   QUIT;
+  if (PRINTFULLP ())
+    return;
 
 #if 1  /* I'm not sure this is really worth doing.  */
   /* Detect circularities and truncate them.
@@ -956,6 +973,7 @@ print (obj, printcharfun, escapeflag)
        register unsigned char *p = XSYMBOL (obj)->name->data;
        register unsigned char *end = p + XSYMBOL (obj)->name->size;
        register unsigned char c;
+       int i;
 
        if (p != end && (*p == '-' || *p == '+')) p++;
        if (p == end)
@@ -1000,16 +1018,18 @@ print (obj, printcharfun, escapeflag)
            PRINTCHAR (':');
          }
 
-       p = XSYMBOL (obj)->name->data;
-       while (p != end)
+       for (i = 0; i < XSYMBOL (obj)->name->size; i++)
          {
            QUIT;
-           c = *p++;
+           c = XSYMBOL (obj)->name->data[i];
+
            if (escapeflag)
              {
-               if (c == '\"' || c == '\\' || c == '\'' || c == ';' || c == '#' ||
-                   c == '(' || c == ')' || c == ',' || c =='.' || c == '`' ||
-                   c == '[' || c == ']' || c == '?' || c <= 040 || confusing)
+               if (c == '\"' || c == '\\' || c == '\''
+                   || c == ';' || c == '#' || c == '(' || c == ')'
+                   || c == ',' || c =='.' || c == '`'
+                   || c == '[' || c == ']' || c == '?' || c <= 040
+                   || confusing)
                  PRINTCHAR ('\\'), confusing = 0;
              }
            PRINTCHAR (c);