# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 1003398637 0
# Node ID 3914e6d2452fd193844c743b6375030ebf0c1b3b
# Parent  0e38dd14faece24693e2238678f5f246caaa9ea2
(Finternal_set_lisp_face_attribute): Follow coding conventions.

diff -r 0e38dd14faec -r 3914e6d2452f src/xfaces.c
--- 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);
 	}