From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 22 Jun 1998 17:35:41 +0000 (+0000)
Subject: (Vinhibit_redisplay, Qinhibit_redisplay): New variables.
X-Git-Tag: emacs-20.3~536
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=735c094c0e9401e11913bf8841bdbde1c6ea902d;p=emacs.git

(Vinhibit_redisplay, Qinhibit_redisplay): New variables.
(syms_of_xdisp): Set up Lisp var.
(redisplay_internal): Test Vinhibit_redisplay.
---

diff --git a/src/xdisp.c b/src/xdisp.c
index 6a14f44d775..a443021470a 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -66,6 +66,10 @@ Lisp_Object Qwindow_scroll_functions, Vwindow_scroll_functions;
 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 @@ redisplay_internal (preserve_echo_area)
     return;
 #endif
 
+  if (! NILP (Vinhibit_redisplay))
+    return;
+
  retry:
 
   if (! FRAME_WINDOW_P (selected_frame)
@@ -5400,6 +5407,9 @@ invisible_ellipsis_p (propval, list)
 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 @@ syms_of_xdisp ()
   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;