From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 2 Nov 1999 13:25:16 +0000 (+0000)
Subject: (QUIT): Give it statement form.
X-Git-Tag: emacs-pretest-21.0.90~6204
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a69a6e61d4d9f9ce354034ccce5d64d466723769;p=emacs.git

(QUIT): Give it statement form.
---

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