Fix bug #12867 with crashes due to large field width in mode-line format.

[gnu-emacs] / src / print.c

diff --git a/src/print.c b/src/print.c
index aae13bb6764c38e07b3ef85ef4c67a5fef843e07..ccf0e8ed7cc43a77c9724980c9ad858e0fcf2f28 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -753,9 +753,9 @@ append to existing target file.  */)
 {
   if (initial_stderr_stream != NULL)
     {
-      BLOCK_INPUT;
+      block_input ();
       fclose (stderr);
-      UNBLOCK_INPUT;
+      unblock_input ();
     }
   stderr = initial_stderr_stream;
   initial_stderr_stream = NULL;
@@ -2075,7 +2075,7 @@ print_object (Lisp_Object obj, register Lisp_Object printcharfun, int escapeflag
 /* Print a description of INTERVAL using PRINTCHARFUN.
    This is part of printing a string that has text properties.  */
 
-void
+static void
 print_interval (INTERVAL interval, Lisp_Object printcharfun)
 {
   if (NILP (interval->plist))