mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-27 15:52:00 -08:00
Code Issues Projects Releases Wiki Activity

(Qredisplay_dont_pause): New variable.

Browse source 
(syms_of_display): Initialize and staticpro it.
(update_frame_1): Don't interrupt the display for pending input if
redisplay_dont_pause is set.
This commit is contained in:
Gerd Moellmann 2000-08-09 18:39:58 +00:00
parent 5cda4b07fa
commit e7067d00c2
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/dispnew.c
View file

@ -241,7 +241,7 @@ Lisp_Object Vstandard_display_table;
int cursor_in_echo_area;
Lisp_Object Qdisplay_table;
Lisp_Object Qdisplay_table, Qredisplay_dont_pause;
/* The currently selected frame. In a single-frame version, this
@ -4695,8 +4695,9 @@ update_frame_1 (f, force_p, inhibit_id_p)
if (preempt_count <= 0)
preempt_count = 1;
detect_input_pending ();
if (input_pending && !force_p)
if (redisplay_dont_pause)
force_p = 1;
else if (!force_p && detect_input_pending ())
{
pause = 1;
goto do_pause;
@ -6225,6 +6226,8 @@ syms_of_display ()
Qdisplay_table = intern ("display-table");
staticpro (&Qdisplay_table);
Qredisplay_dont_pause = intern ("redisplay-dont-pause");
staticpro (&Qredisplay_dont_pause);
DEFVAR_INT ("baud-rate", &baud_rate,
"*The output baud rate of the terminal.\n\