{
/* We're dealing with a TrueColor/DirectColor visual, so play games
with the RGB values in the XColor struct. */
{
/* We're dealing with a TrueColor/DirectColor visual, so play games
with the RGB values in the XColor struct. */
TrueColor or DirectColor visual, so I will just reformat the
request to match the requirements of the visual, and re-issue
the request. If this fails for anybody, I wanna know about it
TrueColor or DirectColor visual, so I will just reformat the
request to match the requirements of the visual, and re-issue
the request. If this fails for anybody, I wanna know about it
least draw the color correctly. However, unless we convert
all of the functions that allocate colors (graphics
libraries, etc) to use this function doing this is very
least draw the color correctly. However, unless we convert
all of the functions that allocate colors (graphics
libraries, etc) to use this function doing this is very
- GET_CHARPTR_EXT_BINARY_DATA_ALLOCA (name, len, extname, extnamelen);
+ TO_EXTERNAL_FORMAT (DATA, (name, len),
+ ALLOCA, (extname, extnamelen),
+ Qbinary);
result = XParseColor (dpy, cmap, (char *) extname, color);
}
if (!result)
result = XParseColor (dpy, cmap, (char *) extname, color);
}
if (!result)
-x_color_instance_equal (struct Lisp_Color_Instance *c1,
- struct Lisp_Color_Instance *c2,
+x_color_instance_equal (Lisp_Color_Instance *c1,
+ Lisp_Color_Instance *c2,
{
XColor color = COLOR_INSTANCE_X_COLOR (c);
return HASH3 (color.red, color.green, color.blue);
}
static Lisp_Object
{
XColor color = COLOR_INSTANCE_X_COLOR (c);
return HASH3 (color.red, color.green, color.blue);
}
static Lisp_Object
{
XColor color = COLOR_INSTANCE_X_COLOR (c);
return (list3 (make_int (color.red),
{
XColor color = COLOR_INSTANCE_X_COLOR (c);
return (list3 (make_int (color.red),
- GET_C_STRING_CTEXT_DATA_ALLOCA (color, extname);
+ TO_EXTERNAL_FORMAT (LISP_STRING, color, C_STRING_ALLOCA, extname, Qctext);
- dpy = DEVICE_X_DISPLAY (XDEVICE (device));
- GET_C_STRING_CTEXT_DATA_ALLOCA (f->name, extname);
+ TO_EXTERNAL_FORMAT (LISP_STRING, f->name, C_STRING_ALLOCA, extname, Qctext);
- GET_C_STRING_BINARY_DATA_ALLOCA (pattern, patternext);
+ TO_EXTERNAL_FORMAT (LISP_STRING, pattern,
+ C_STRING_ALLOCA, patternext,
+ Qbinary);
names = XListFonts (DEVICE_X_DISPLAY (XDEVICE (device)),
patternext, MAX_FONT_COUNT, &count);
while (count--)
names = XListFonts (DEVICE_X_DISPLAY (XDEVICE (device)),
patternext, MAX_FONT_COUNT, &count);
while (count--)
- GET_C_STRING_BINARY_DATA_ALLOCA (font, patternext);
+ TO_EXTERNAL_FORMAT (LISP_STRING, font,
+ C_STRING_ALLOCA, patternext,
+ Qbinary);
names = XListFonts (DEVICE_X_DISPLAY (XDEVICE (device)),
patternext, MAX_FONT_COUNT, &count);
names = XListFonts (DEVICE_X_DISPLAY (XDEVICE (device)),
patternext, MAX_FONT_COUNT, &count);
- GET_C_CHARPTR_INT_BINARY_DATA_ALLOCA (names[i], intname);
+ TO_INTERNAL_FORMAT (C_STRING, names[i],
+ C_STRING_ALLOCA, intname,
+ Qbinary);