(QUIT): Give it statement form.

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  <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.
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.  */