(QUIT): Give it statement form.
This commit is contained in:
@@ -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.
|
||||
|
||||
11
src/lisp.h
11
src/lisp.h
@@ -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. */
|
||||
|
||||
|
||||
Reference in New Issue
Block a user