# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 898536941 0
# Node ID 32cfe5058f27f1b33f4bd13b1a4bec3de049aa21
# Parent  ca46e1a328564b89651d659ef6a0257778f106f9
(Vinhibit_redisplay, Qinhibit_redisplay): New variables.
(syms_of_xdisp): Set up Lisp var.
(redisplay_internal): Test Vinhibit_redisplay.

diff -r ca46e1a32856 -r 32cfe5058f27 src/xdisp.c
--- a/src/xdisp.c	Mon Jun 22 17:34:59 1998 +0000
+++ b/src/xdisp.c	Mon Jun 22 17:35:41 1998 +0000
@@ -66,6 +66,10 @@
 Lisp_Object Qredisplay_end_trigger_functions;
 Lisp_Object Qinhibit_point_motion_hooks;
 
+/* Non-nil means don't actually do any redisplay.  */
+
+Lisp_Object Vinhibit_redisplay, Qinhibit_redisplay;
+
 /* Nonzero means print newline to stdout before next minibuffer message.  */
 
 int noninteractive_need_newline;
@@ -1036,6 +1040,9 @@
     return;
 #endif
 
+  if (! NILP (Vinhibit_redisplay))
+    return;
+
  retry:
 
   if (! FRAME_WINDOW_P (selected_frame)
@@ -5400,6 +5407,9 @@
 void
 syms_of_xdisp ()
 {
+  staticpro (&Qinhibit_redisplay);
+  Qinhibit_redisplay = intern ("inhibit-redisplay");
+
   staticpro (&Qmenu_bar_update_hook);
   Qmenu_bar_update_hook = intern ("menu-bar-update-hook");
 
@@ -5423,6 +5433,11 @@
   last_arrow_position = Qnil;
   last_arrow_string = Qnil;
 
+  DEFVAR_LISP ("inhibit-redisplay", &Vinhibit_redisplay,
+    "Non-nil means don't actually do any redisplay.\n\
+This is used for internal purposes.");
+  Vinhibit_redisplay = Qnil;
+
   DEFVAR_LISP ("global-mode-string", &Vglobal_mode_string,
     "String (or mode line construct) included (normally) in `mode-line-format'.");
   Vglobal_mode_string = Qnil;