(QUIT): Give it statement form.

diff --git a/src/ChangeLog b/src/ChangeLog
index b1111d3876b4345719de2f5ac6b8568b91e4e045..aca01812d4f36337dfa0f922f715a4abc1ceabe6 100644 (file)
--- 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 5dbc8505ba0e165a95efa5dd2ed7d69ac69ba498..66ef6a5eb97adc8f5f65526586b92ed9264ef8db 100644 (file)
--- 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.  */