static Lisp_Object *fringe_faces;
static int max_fringe_bitmaps;
-#ifndef HAVE_NS
-static
-#endif
int max_used_fringe_bitmap = MAX_STANDARD_FRINGE_BITMAPS;
return;
}
- PREPARE_FACE_FOR_DISPLAY (f, p.face);
+ prepare_face_for_display (f, p.face);
/* Clear left fringe if no bitmap to draw or if bitmap doesn't fill
the fringe. */
void
syms_of_fringe (void)
{
+#include "fringe.x"
+
DEFSYM (Qtruncation, "truncation");
DEFSYM (Qcontinuation, "continuation");
DEFSYM (Qoverlay_arrow, "overlay-arrow");
DEFSYM (Qtop_bottom, "top-bottom");
DEFSYM (Qhollow_small, "hollow-small");
- defsubr (&Sdestroy_fringe_bitmap);
- defsubr (&Sdefine_fringe_bitmap);
- defsubr (&Sfringe_bitmaps_at_pos);
- defsubr (&Sset_fringe_bitmap_face);
-
DEFVAR_LISP ("overflow-newline-into-fringe", Voverflow_newline_into_fringe,
doc: /* Non-nil means that newline may flow into the right fringe.
This means that display lines which are exactly as wide as the window
Vfringe_bitmaps = Qnil;
}
-/* Garbage collection hook */
-
-void
-mark_fringe_data (void)
-{
- int i;
-
- for (i = 0; i < max_fringe_bitmaps; i++)
- if (!NILP (fringe_faces[i]))
- mark_object (fringe_faces[i]);
-}
-
/* Initialize this module when Emacs starts. */
void