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

(Fsignal): Reset redisplaying_p to zero.

Browse source 
(Fsignal): Hide busy cursor.
(Feval): Check interrupt_input_block == 0.
(Fsignal): Call to quit_error_check removed.
This commit is contained in:
Gerd Moellmann 1999-07-21 21:43:52 +00:00
parent d70392acd4
commit 48f8dfa38d
1 changed files with 13 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/eval.c
View file

@ -1218,8 +1218,9 @@ See also the function `condition-case'.")
Lisp_Object string;
Lisp_Object real_error_symbol;
Lisp_Object combined_data;
extern int display_busy_cursor_p;
extern int redisplaying_p;
quit_error_check ();
immediate_quit = 0;
if (gc_in_progress || waiting_for_input)
abort ();
@ -1231,6 +1232,12 @@ See also the function `condition-case'.")
else
real_error_symbol = error_symbol;
#ifdef HAVE_X_WINDOWS
if (display_busy_cursor_p)
Fx_hide_busy_cursor (Qt);
#endif
redisplaying_p = 0;
/* This hook is used by edebug. */
if (! NILP (Vsignal_hook_function))
call2 (Vsignal_hook_function, error_symbol, data);
@ -1696,6 +1703,11 @@ DEFUN ("eval", Feval, Seval, 1, 1, 0,
struct backtrace backtrace;
struct gcpro gcpro1, gcpro2, gcpro3;
/* Since Fsignal resets this to 0, it had better be 0 now
or else we have a potential bug. */
if (interrupt_input_blocked != 0)
abort ();
if (SYMBOLP (form))
{
if (EQ (Vmocklisp_arguments, Qt))