# HG changeset patch # User Gerd Moellmann # Date 967375717 0 # Node ID 1733db535955bea074971dc87ca0bdc2c794d4cd # Parent 86d1a169a3ccffe66d1143305eda9f8cd5331400 (lface_fully_specified_p): Handle :inherit. (Finternal_set_lisp_face_attribute): Fix typo in error message. diff -r 86d1a169a3cc -r 1733db535955 src/xfaces.c --- a/src/xfaces.c Sun Aug 27 10:10:14 2000 +0000 +++ b/src/xfaces.c Sun Aug 27 11:28:37 2000 +0000 @@ -2952,8 +2952,9 @@ int i; for (i = 1; i < LFACE_VECTOR_SIZE; ++i) - if (UNSPECIFIEDP (attrs[i]) && i != LFACE_FONT_INDEX) - break; + if (i != LFACE_FONT_INDEX && i != LFACE_INHERIT_INDEX) + if (UNSPECIFIEDP (attrs[i])) + break; return i == LFACE_VECTOR_SIZE; } @@ -3161,6 +3162,7 @@ to[LFACE_INHERIT_INDEX] = Qnil; } + /* Checks the `cycle check' variable CHECK to see if it indicates that EL is part of a cycle; CHECK must be either Qnil or a value returned by an earlier use of CYCLE_CHECK. SUSPICIOUS is the number of @@ -3173,6 +3175,7 @@ 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) \ @@ -3886,7 +3889,7 @@ if (NILP (tail)) LFACE_INHERIT (lface) = value; else - signal_error ("Invalid font inheritance", value); + signal_error ("Invalid face inheritance", value); } else if (EQ (attr, QCbold)) {