diff options
| author | Kim F. Storm <storm@cua.dk> | 2006-07-12 13:22:10 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2006-07-12 13:22:10 +0000 |
| commit | d5ddd1a30447fe6c83003c907db95c9f5c5b2148 (patch) | |
| tree | e788849b3209d864487e5a513e3d18c78d633752 | |
| parent | 663fbbba4d9f50656e3f278fda1f38f3eafd2339 (diff) | |
| download | emacs-d5ddd1a30447fe6c83003c907db95c9f5c5b2148.tar.gz | |
(load_pixmap): Use CHECK_TYPE.
| -rw-r--r-- | src/xfaces.c | 5 |
1 files changed, 1 insertions, 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)) |