From a69a6e61d4d9f9ce354034ccce5d64d466723769 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Tue, 2 Nov 1999 13:25:16 +0000 Subject: [PATCH] (QUIT): Give it statement form. --- src/ChangeLog | 4 ++++ src/lisp.h | 11 ++++++++--- 2 files changed, 12 insertions(+), 3 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index b1111d3876b..aca01812d4f 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +1999-11-02 Gerd Moellmann + + * lisp.h (QUIT): Give it statement form. + 1999-11-02 Dave Love * eval.c (init_eval): Conditionalize declaration of gcpro_level. diff --git a/src/lisp.h b/src/lisp.h index 5dbc8505ba0..66ef6a5eb97 100644 --- a/src/lisp.h +++ b/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. */ -- 2.39.5