{
struct Lisp_Image_Instance *i = XIMAGE_INSTANCE (obj);
- (markobj) (i->name);
+ markobj (i->name);
switch (IMAGE_INSTANCE_TYPE (i))
{
case IMAGE_TEXT:
- (markobj) (IMAGE_INSTANCE_TEXT_STRING (i));
+ markobj (IMAGE_INSTANCE_TEXT_STRING (i));
break;
case IMAGE_MONO_PIXMAP:
case IMAGE_COLOR_PIXMAP:
- (markobj) (IMAGE_INSTANCE_PIXMAP_FILENAME (i));
- (markobj) (IMAGE_INSTANCE_PIXMAP_MASK_FILENAME (i));
- (markobj) (IMAGE_INSTANCE_PIXMAP_HOTSPOT_X (i));
- (markobj) (IMAGE_INSTANCE_PIXMAP_HOTSPOT_Y (i));
- (markobj) (IMAGE_INSTANCE_PIXMAP_FG (i));
- (markobj) (IMAGE_INSTANCE_PIXMAP_BG (i));
+ markobj (IMAGE_INSTANCE_PIXMAP_FILENAME (i));
+ markobj (IMAGE_INSTANCE_PIXMAP_MASK_FILENAME (i));
+ markobj (IMAGE_INSTANCE_PIXMAP_HOTSPOT_X (i));
+ markobj (IMAGE_INSTANCE_PIXMAP_HOTSPOT_Y (i));
+ markobj (IMAGE_INSTANCE_PIXMAP_FG (i));
+ markobj (IMAGE_INSTANCE_PIXMAP_BG (i));
break;
case IMAGE_SUBWINDOW:
/* #### implement me */
}
static int
-image_instance_equal (Lisp_Object o1, Lisp_Object o2, int depth)
+image_instance_equal (Lisp_Object obj1, Lisp_Object obj2, int depth)
{
- struct Lisp_Image_Instance *i1 = XIMAGE_INSTANCE (o1);
- struct Lisp_Image_Instance *i2 = XIMAGE_INSTANCE (o2);
+ struct Lisp_Image_Instance *i1 = XIMAGE_INSTANCE (obj1);
+ struct Lisp_Image_Instance *i2 = XIMAGE_INSTANCE (obj2);
struct device *d1 = XDEVICE (i1->device);
struct device *d2 = XDEVICE (i2->device);
/* instantiate_image_instantiator() will abort if given an
image instance ... */
if (IMAGE_INSTANCEP (data))
- signal_simple_error ("image instances not allowed here", data);
+ signal_simple_error ("Image instances not allowed here", data);
image_validate (data);
dest_mask = decode_image_instance_type_list (dest_types);
data = normalize_image_instantiator (data, DEVICE_TYPE (XDEVICE (device)),
make_int (dest_mask));
GCPRO1 (data);
if (VECTORP (data) && EQ (XVECTOR_DATA (data)[0], Qinherit))
- signal_simple_error ("inheritance not allowed here", data);
+ signal_simple_error ("Inheritance not allowed here", data);
ii = instantiate_image_instantiator (device, device, data,
Qnil, Qnil, dest_mask);
RETURN_UNGCPRO (ii);
if (!NILP (file) && NILP (data))
{
Lisp_Object retval = MAYBE_LISP_CONTYPE_METH
- (decode_console_type(console_type, ERROR_ME),
+ (decode_console_type(console_type, ERROR_ME),
locate_pixmap_file, (file));
if (!NILP (retval))
else
return Fcons (file, Qnil); /* should have been file */
}
-
+
return Qnil;
}
Note that if we cannot generate any regular inline data, we
skip out. */
- file = potential_pixmap_file_instantiator (inst, Q_file, Q_data,
+ file = potential_pixmap_file_instantiator (inst, Q_file, Q_data,
console_type);
if (CONSP (file)) /* failure locating filename */
-- maybe return an error, or return Qnil.
*/
-#ifndef HAVE_X_WINDOWS
+#ifdef HAVE_X_WINDOWS
+#include <X11/Xlib.h>
+#else
#define XFree(data) free(data)
#endif
CONST char *filename_ext;
GET_C_STRING_FILENAME_DATA_ALLOCA (name, filename_ext);
- result = read_bitmap_data_from_file (filename_ext, &w, &h,
+ result = read_bitmap_data_from_file (filename_ext, &w, &h,
&data, xhot, yhot);
if (result == BitmapSuccess)
&& !NILP (file))
{
mask_file = MAYBE_LISP_CONTYPE_METH
- (decode_console_type(console_type, ERROR_ME),
+ (decode_console_type(console_type, ERROR_ME),
locate_pixmap_file, (concat2 (file, build_string ("Mask"))));
if (NILP (mask_file))
mask_file = MAYBE_LISP_CONTYPE_METH
- (decode_console_type(console_type, ERROR_ME),
+ (decode_console_type(console_type, ERROR_ME),
locate_pixmap_file, (concat2 (file, build_string ("msk"))));
}
{
Lisp_Object device= IMAGE_INSTANCE_DEVICE (XIMAGE_INSTANCE (image_instance));
- MAYBE_DEVMETH (XDEVICE (device),
+ MAYBE_DEVMETH (XDEVICE (device),
xbm_instantiate,
- (image_instance, instantiator, pointer_fg,
+ (image_instance, instantiator, pointer_fg,
pointer_bg, dest_mask, domain));
}
Note that if we cannot generate any regular inline data, we
skip out. */
- file = potential_pixmap_file_instantiator (inst, Q_file, Q_data,
+ file = potential_pixmap_file_instantiator (inst, Q_file, Q_data,
console_type);
if (CONSP (file)) /* failure locating filename */
if (NILP (file) && !UNBOUNDP (color_symbols))
/* no conversion necessary */
RETURN_UNGCPRO (inst);
-
+
alist = tagged_vector_to_alist (inst);
if (!NILP (file))
alist = Fcons (Fcons (Q_file, file),
Fcons (Fcons (Q_data, data), alist));
}
-
+
if (UNBOUNDP (color_symbols))
{
color_symbols = evaluate_xpm_color_symbols ();
{
Lisp_Object device= IMAGE_INSTANCE_DEVICE (XIMAGE_INSTANCE (image_instance));
- MAYBE_DEVMETH (XDEVICE (device),
+ MAYBE_DEVMETH (XDEVICE (device),
xpm_instantiate,
- (image_instance, instantiator, pointer_fg,
+ (image_instance, instantiator, pointer_fg,
pointer_bg, dest_mask, domain));
}
{
struct Lisp_Specifier *image = XIMAGE_SPECIFIER (obj);
- ((markobj) (IMAGE_SPECIFIER_ATTACHEE (image)));
- ((markobj) (IMAGE_SPECIFIER_ATTACHEE_PROPERTY (image)));
+ markobj (IMAGE_SPECIFIER_ATTACHEE (image));
+ markobj (IMAGE_SPECIFIER_ATTACHEE_PROPERTY (image));
}
static Lisp_Object
pointer face.
*/
- subtable = make_lisp_hashtable (20,
- pointerp ? HASHTABLE_KEY_CAR_WEAK
- : HASHTABLE_KEY_WEAK,
- pointerp ? HASHTABLE_EQUAL
- : HASHTABLE_EQ);
+ subtable = make_lisp_hash_table (20,
+ pointerp ? HASH_TABLE_KEY_CAR_WEAK
+ : HASH_TABLE_KEY_WEAK,
+ pointerp ? HASH_TABLE_EQUAL
+ : HASH_TABLE_EQ);
Fputhash (make_int (dest_mask), subtable,
d->image_instance_cache);
instance = Qunbound;
{
struct Lisp_Glyph *glyph = XGLYPH (obj);
- ((markobj) (glyph->image));
- ((markobj) (glyph->contrib_p));
- ((markobj) (glyph->baseline));
- ((markobj) (glyph->face));
+ markobj (glyph->image);
+ markobj (glyph->contrib_p);
+ markobj (glyph->baseline);
+ markobj (glyph->face);
return glyph->plist;
}
This isn't concerned with "unspecified" attributes, that's what
#'glyph-differs-from-default-p is for. */
static int
-glyph_equal (Lisp_Object o1, Lisp_Object o2, int depth)
+glyph_equal (Lisp_Object obj1, Lisp_Object obj2, int depth)
{
- struct Lisp_Glyph *g1 = XGLYPH (o1);
- struct Lisp_Glyph *g2 = XGLYPH (o2);
+ struct Lisp_Glyph *g1 = XGLYPH (obj1);
+ struct Lisp_Glyph *g2 = XGLYPH (obj2);
depth++;
CHECK_GLYPH (glyph);
switch (XGLYPH_TYPE (glyph))
{
+ default: abort ();
case GLYPH_BUFFER: return Qbuffer;
case GLYPH_POINTER: return Qpointer;
case GLYPH_ICON: return Qicon;
- default:
- abort ();
- return Qnil; /* not reached */
}
}
for (elt = 0; elt < Dynarr_length (elements); elt++)
{
struct glyph_cachel *cachel = Dynarr_atp (elements, elt);
- ((markobj) (cachel->glyph));
+ markobj (cachel->glyph);
}
}