martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(Finternal_set_lisp_face_attribute): Follow coding conventions.

Browse Source
This commit is contained in:
Gerd Moellmann
2001-10-18 09:50:37 +00:00
parent e6b70fd82e
commit d8055bfc8f
1 changed files with 9 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
src/xfaces.c
View File

@@ -3831,13 +3831,16 @@ FRAME 0 means change the face on all frames, and change the default
{
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));
Lisp_Object test;
if (!INTEGERP(test) || XINT(test) <= 0)
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);
}