# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1072570390 0
# Node ID fe80edbc3909b4d1f64f9c8561a3777928ab51a9
# Parent  0432020d46a779336c10153103e1dd472b357196
(x_set_mouse_color): Remove bogus x_check_errors call.
(Qimage): Remove extern (now in lisp.h).
(valid_image_p, parse_image_spec): Use IMAGEP macro.

diff -r 0432020d46a7 -r fe80edbc3909 src/xfns.c
--- a/src/xfns.c	Sun Dec 28 00:12:45 2003 +0000
+++ b/src/xfns.c	Sun Dec 28 00:13:10 2003 +0000
@@ -1300,7 +1300,6 @@
     hourglass_cursor = XCreateFontCursor (dpy, XC_watch);
   x_check_errors (dpy, "bad hourglass pointer cursor: %s");
 
-  x_check_errors (dpy, "bad nontext pointer cursor: %s");
   if (!NILP (Vx_mode_pointer_shape))
     {
       CHECK_NUMBER (Vx_mode_pointer_shape);
@@ -4416,11 +4415,6 @@
 
 static struct image_type *image_types;
 
-/* The symbol `image' which is the car of the lists used to represent
-   images in Lisp.  */
-
-extern Lisp_Object Qimage;
-
 /* The symbol `xbm' which is used as the type symbol for XBM images.  */
 
 Lisp_Object Qxbm;
@@ -4500,7 +4494,7 @@
 {
   int valid_p = 0;
 
-  if (CONSP (object) && EQ (XCAR (object), Qimage))
+  if (IMAGEP (object))
     {
       Lisp_Object tem;
 
@@ -4602,7 +4596,7 @@
   int i;
   Lisp_Object plist;
 
-  if (!CONSP (spec) || !EQ (XCAR (spec), Qimage))
+  if (!IMAGEP (spec))
     return 0;
 
   plist = XCDR (spec);