Mercurial > emacs

changeset 9944:dd9afae74baf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fpixmap_spec_p): Avoid function calls and assignments as arguments to a type-test macro.
author Karl Heuer <kwzh@gnu.org>
date Tue, 15 Nov 1994 22:53:26 +0000
parents 4e6e0478baef
children 9b2ecbd894e4
files src/xfaces.c
diffstat 1 files changed, 9 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- a/src/xfaces.c	Tue Nov 15 22:45:31 1994 +0000
+++ b/src/xfaces.c	Tue Nov 15 22:53:26 1994 +0000
@@ -392,18 +392,18 @@
 
   return ((STRINGP (arg)
 	   || (CONSP (arg)
-	       && CONSP (Fcdr (arg))
-	       && CONSP (Fcdr (Fcdr (arg)))
-	       && NILP (Fcdr (Fcdr (Fcdr (arg))))
-	       && INTEGERP (width = Fcar (arg))
-	       && INTEGERP (height = Fcar (Fcdr (arg)))
-	       && STRINGP (Fcar (Fcdr (Fcdr (arg))))
+	       && CONSP (XCONS (arg)->cdr)
+	       && CONSP (XCONS (XCONS (arg)->cdr)->cdr)
+	       && NILP (XCONS (XCONS (XCONS (arg)->cdr)->cdr)->cdr)
+	       && (width = XCONS (arg)->car, INTEGERP (width))
+	       && (height = XCONS (XCONS (arg)->cdr)->car, INTEGERP (height))
+	       && STRINGP (XCONS (XCONS (XCONS (arg)->cdr)->cdr)->car)
 	       && XINT (width) > 0
 	       && XINT (height) > 0
 	       /* The string must have enough bits for width * height.  */
-	       && (XINT (width) * XINT (height)
-		   <= (XSTRING (Fcar (Fcdr (Fcdr (arg))))->size
-		       * (INTBITS / sizeof (int))))))
+	       && ((XSTRING (XCONS (XCONS (XCONS (arg)->cdr)->cdr)->car)->size
+		    * (INTBITS / sizeof (int)))
+		   >= XFASTINT (width) * XFASTINT (height))))
 	  ? Qt : Qnil);
 }