changeset 26309:8817f3f80755

(QUIT): Give it statement form.
author Gerd Moellmann <gerd@gnu.org>
date Tue, 02 Nov 1999 13:24:17 +0000
parents c2138070615f
children f7812754ea2a
files src/lisp.h
diffstat 1 files changed, 8 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/src/lisp.h	Tue Nov 02 12:58:32 1999 +0000
+++ b/src/lisp.h	Tue Nov 02 13:24:17 1999 +0000
@@ -1499,9 +1499,14 @@
    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.  */