Commit 735c094c authored by Karl Heuer's avatar Karl Heuer
Browse files

(Vinhibit_redisplay, Qinhibit_redisplay): New variables.

(syms_of_xdisp): Set up Lisp var.
(redisplay_internal): Test Vinhibit_redisplay.
parent 44e553a3
......@@ -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;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment