From: Kim F. Storm <storm@cua.dk>
Date: Wed, 12 Jul 2006 13:22:10 +0000 (+0000)
Subject: (load_pixmap): Use CHECK_TYPE.
X-Git-Tag: emacs-pretest-22.0.90~1493
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d5ddd1a30447fe6c83003c907db95c9f5c5b2148;p=emacs.git

(load_pixmap): Use CHECK_TYPE.
---

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))