Mercurial > emacs
changeset 22543:32cfe5058f27
(Vinhibit_redisplay, Qinhibit_redisplay): New variables.
(syms_of_xdisp): Set up Lisp var.
(redisplay_internal): Test Vinhibit_redisplay.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Mon, 22 Jun 1998 17:35:41 +0000 |
| parents | ca46e1a32856 |
| children | f2d3eeec754e |
| files | src/xdisp.c |
| diffstat | 1 files changed, 15 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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;