(CYCLE_CHECK): Don't use the Lisp_Object returned

by Fmemq in a condition.

diff --git a/src/ChangeLog b/src/ChangeLog
index b337d3a1b3fe9c86eb38b16bd8dd6a954c7f5c86..1c4ef8951a8028b6d32dbc23695f8b741c60fb7e 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2000-09-09  Gerd Moellmann  <gerd@gnu.org>
+
+       * xfaces.c (CYCLE_CHECK): Don't use the Lisp_Object returned 
+       by Fmemq in a condition.
+
 2000-09-08  Stefan Monnier  <monnier@cs.yale.edu>
 
        * xfaces.c (Finternal_set_lisp_face_attribute): Minor thinko.

diff --git a/src/xfaces.c b/src/xfaces.c
index 22530657c18d35930f6b6c8fcfab6df240d47599..b3856127d9d9c90a0354313a1c4c6bdaa9d30f5e 100644 (file)
--- a/src/xfaces.c
+++ b/src/xfaces.c
@@ -3195,16 +3195,16 @@ merge_face_vectors (f, from, to, cycle_check)
    CHECK is evaluated multiple times, EL and SUSPICIOUS 0 or 1 times, so
    the caller should make sure that's ok.  */
 
-#define CYCLE_CHECK(check, el, suspicious)                                   \
-  (NILP (check)                                                                      \
-   ? make_number (0)                                                         \
-   : INTEGERP (check)                                                        \
-   ? (XFASTINT (check) < (suspicious)                                        \
-      ? make_number (XFASTINT (check) + 1)                                   \
-      : Fcons (el, Qnil))                                                    \
-   : Fmemq ((el), (check))                                                   \
-   ? Qnil                                                                    \
-   : Fcons ((el), (check)))
+#define CYCLE_CHECK(check, el, suspicious)     \
+  (NILP (check)                                        \
+   ? make_number (0)                           \
+   : (INTEGERP (check)                         \
+      ? (XFASTINT (check) < (suspicious)       \
+        ? make_number (XFASTINT (check) + 1)   \
+        : Fcons (el, Qnil))                    \
+      : (!NILP (Fmemq ((el), (check)))         \
+        ? Qnil                                 \
+        : Fcons ((el), (check)))))
 
 
 /* Merge face attributes from the face on frame F whose name is