Mercurial > emacs
changeset 40023:3914e6d2452f
(Finternal_set_lisp_face_attribute): Follow coding conventions.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Thu, 18 Oct 2001 09:50:37 +0000 |
| parents | 0e38dd14faec |
| children | 2dee495c21db |
| files | src/xfaces.c |
| diffstat | 1 files changed, 10 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/src/xfaces.c Thu Oct 18 08:47:12 2001 +0000 +++ b/src/xfaces.c Thu Oct 18 09:50:37 2001 +0000 @@ -3831,13 +3831,16 @@ { if (!UNSPECIFIEDP (value)) { - Lisp_Object test = - (EQ (face, Qdefault) ? value : - /* The default face must have an absolute size, otherwise, we do - a test merge with a random height to see if VALUE's ok. */ - merge_face_heights (value, make_number(10), Qnil, Qnil)); - - if (!INTEGERP(test) || XINT(test) <= 0) + Lisp_Object test; + + test = (EQ (face, Qdefault) + ? value + /* The default face must have an absolute size, + otherwise, we do a test merge with a random + height to see if VALUE's ok. */ + : merge_face_heights (value, make_number (10), Qnil, Qnil)); + + if (!INTEGERP (test) || XINT (test) <= 0) signal_error ("Invalid face height", value); }