aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorKim F. Storm2003-12-28 00:13:10 +0000
committerKim F. Storm2003-12-28 00:13:10 +0000
commit15aa58c18e557ead24010b7c9f78bd94d5579cf8 (patch)
tree779d9b61057c446c5364a3c697bedea46ab4a937 /src
parentd7078aefa029a7f6beea9fb0803305600ab7d0f5 (diff)
downloademacs-15aa58c18e557ead24010b7c9f78bd94d5579cf8.tar.gz
emacs-15aa58c18e557ead24010b7c9f78bd94d5579cf8.zip
(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.
Diffstat (limited to 'src')
-rw-r--r--src/xfns.c10
1 files changed, 2 insertions, 8 deletions
diff --git a/src/xfns.c b/src/xfns.c
index cd50cbbc919..e940b16eba1 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -1300,7 +1300,6 @@ x_set_mouse_color (f, arg, oldval)
1300 hourglass_cursor = XCreateFontCursor (dpy, XC_watch); 1300 hourglass_cursor = XCreateFontCursor (dpy, XC_watch);
1301 x_check_errors (dpy, "bad hourglass pointer cursor: %s"); 1301 x_check_errors (dpy, "bad hourglass pointer cursor: %s");
1302 1302
1303 x_check_errors (dpy, "bad nontext pointer cursor: %s");
1304 if (!NILP (Vx_mode_pointer_shape)) 1303 if (!NILP (Vx_mode_pointer_shape))
1305 { 1304 {
1306 CHECK_NUMBER (Vx_mode_pointer_shape); 1305 CHECK_NUMBER (Vx_mode_pointer_shape);
@@ -4416,11 +4415,6 @@ the excessive values are ignored. */)
4416 4415
4417static struct image_type *image_types; 4416static struct image_type *image_types;
4418 4417
4419/* The symbol `image' which is the car of the lists used to represent
4420 images in Lisp. */
4421
4422extern Lisp_Object Qimage;
4423
4424/* The symbol `xbm' which is used as the type symbol for XBM images. */ 4418/* The symbol `xbm' which is used as the type symbol for XBM images. */
4425 4419
4426Lisp_Object Qxbm; 4420Lisp_Object Qxbm;
@@ -4500,7 +4494,7 @@ valid_image_p (object)
4500{ 4494{
4501 int valid_p = 0; 4495 int valid_p = 0;
4502 4496
4503 if (CONSP (object) && EQ (XCAR (object), Qimage)) 4497 if (IMAGEP (object))
4504 { 4498 {
4505 Lisp_Object tem; 4499 Lisp_Object tem;
4506 4500
@@ -4602,7 +4596,7 @@ parse_image_spec (spec, keywords, nkeywords, type)
4602 int i; 4596 int i;
4603 Lisp_Object plist; 4597 Lisp_Object plist;
4604 4598
4605 if (!CONSP (spec) || !EQ (XCAR (spec), Qimage)) 4599 if (!IMAGEP (spec))
4606 return 0; 4600 return 0;
4607 4601
4608 plist = XCDR (spec); 4602 plist = XCDR (spec);