Mercurial > emacs
changeset 31202:1733db535955
(lface_fully_specified_p): Handle :inherit.
(Finternal_set_lisp_face_attribute): Fix typo in error message.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Sun, 27 Aug 2000 11:28:37 +0000 |
parents | 86d1a169a3cc |
children | 4c14695715f0 |
files | src/xfaces.c |
diffstat | 1 files changed, 6 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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)) {