extern Lisp_Object QCwidth, QCheight, QCascent;
extern Lisp_Object Qscroll_bar;
extern Lisp_Object Qcursor;
-extern Lisp_Object Qfringe;
/* Non-nil means highlight trailing whitespace. */
&& CONSP (XCDR (prop)))
{
unsigned face_id = DEFAULT_FACE_ID;
+ int fringe_bitmap;
/* Save current settings of IT so that we can restore them
when we are finished with the glyph property value. */
#ifdef HAVE_WINDOW_SYSTEM
value = XCAR (XCDR (prop));
if (!SYMBOLP (value)
- || (value = Fget (value, Qfringe),
- !valid_fringe_bitmap_p (value)))
+ || !(fringe_bitmap = lookup_fringe_bitmap (value)))
return 0;
if (CONSP (XCDR (XCDR (prop))))
if (EQ (XCAR (prop), Qleft_fringe))
{
- it->left_user_fringe_bitmap = XINT (value);
+ it->left_user_fringe_bitmap = fringe_bitmap;
it->left_user_fringe_face_id = face_id;
}
else
{
- it->right_user_fringe_bitmap = XINT (value);
+ it->right_user_fringe_bitmap = fringe_bitmap;
it->right_user_fringe_face_id = face_id;
}
#endif /* HAVE_WINDOW_SYSTEM */