(QUIT): Give it statement form.

This commit is contained in:
Gerd Moellmann
1999-11-02 13:25:16 +00:00
parent 87e21fbd58
commit a69a6e61d4
2 changed files with 12 additions and 3 deletions

View File

@@ -1,3 +1,7 @@
1999-11-02 Gerd Moellmann <gerd@gnu.org>
* lisp.h (QUIT): Give it statement form.
1999-11-02 Dave Love <fx@gnu.org>
* eval.c (init_eval): Conditionalize declaration of gcpro_level.

View File

@@ -1499,9 +1499,14 @@ extern char *stack_bottom;
This is a good thing to do around a loop that has no side effects
and (in particular) cannot call arbitrary Lisp code. */
#define QUIT \
if (!NILP (Vquit_flag) && NILP (Vinhibit_quit)) \
{ Vquit_flag = Qnil; Fsignal (Qquit, Qnil); }
#define QUIT \
do { \
if (!NILP (Vquit_flag) && NILP (Vinhibit_quit)) \
{ \
Vquit_flag = Qnil; \
Fsignal (Qquit, Qnil); \
} \
} while (0)
/* Nonzero if ought to quit now. */