Mercurial > emacs

comparison src/xfaces.c @ 31522:7ba4ef0eac8d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(CYCLE_CHECK): Don't use the Lisp_Object returned by Fmemq in a condition.
author Gerd Moellmann <gerd@gnu.org>
date Sat, 09 Sep 2000 13:14:34 +0000
parents 5a14247e8e26
children 9eeff4863080
comparison
equal deleted inserted replaced
31521:8fa910d9155b 31522:7ba4ef0eac8d
3193 that includes EL. 3193 that includes EL.
3194 3194
3195 CHECK is evaluated multiple times, EL and SUSPICIOUS 0 or 1 times, so 3195 CHECK is evaluated multiple times, EL and SUSPICIOUS 0 or 1 times, so
3196 the caller should make sure that's ok. */ 3196 the caller should make sure that's ok. */
3197 3197
3198 #define CYCLE_CHECK(check, el, suspicious) \ 3198 #define CYCLE_CHECK(check, el, suspicious) \
3199 (NILP (check) \ 3199 (NILP (check) \
3200 ? make_number (0) \ 3200 ? make_number (0) \
3201 : INTEGERP (check) \ 3201 : (INTEGERP (check) \
3202 ? (XFASTINT (check) < (suspicious) \ 3202 ? (XFASTINT (check) < (suspicious) \
3203 ? make_number (XFASTINT (check) + 1) \ 3203 ? make_number (XFASTINT (check) + 1) \
3204 : Fcons (el, Qnil)) \ 3204 : Fcons (el, Qnil)) \
3205 : Fmemq ((el), (check)) \ 3205 : (!NILP (Fmemq ((el), (check))) \
3206 ? Qnil \ 3206 ? Qnil \
3207 : Fcons ((el), (check))) 3207 : Fcons ((el), (check)))))
3208 3208
3209 3209
3210 /* Merge face attributes from the face on frame F whose name is 3210 /* Merge face attributes from the face on frame F whose name is
3211 INHERITS, into the vector of face attributes TO; INHERITS may also be 3211 INHERITS, into the vector of face attributes TO; INHERITS may also be
3212 a list of face names, in which case they are applied in order. 3212 a list of face names, in which case they are applied in order.