From d5ddd1a30447fe6c83003c907db95c9f5c5b2148 Mon Sep 17 00:00:00 2001
From: "Kim F. Storm" <storm@cua.dk>
Date: Wed, 12 Jul 2006 13:22:10 +0000
Subject: [PATCH] (load_pixmap): Use CHECK_TYPE.

---
 src/xfaces.c | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/src/xfaces.c b/src/xfaces.c
index 30e1c7aa5dc..14572af966d 100644
--- a/src/xfaces.c
+++ b/src/xfaces.c
@@ -1171,14 +1171,11 @@ load_pixmap (f, name, w_ptr, h_ptr)
      unsigned int *w_ptr, *h_ptr;
 {
   int bitmap_id;
-  Lisp_Object tem;
 
   if (NILP (name))
     return 0;
 
-  tem = Fbitmap_spec_p (name);
-  if (NILP (tem))
-    wrong_type_argument (Qbitmap_spec_p, name);
+  CHECK_TYPE (!NILP (Fbitmap_spec_p (name)), Qbitmap_spec_p, name);
 
   BLOCK_INPUT;
   if (CONSP (name))
-- 
2.39.2