From: Kim F. Storm Date: Tue, 28 Sep 2004 23:02:41 +0000 (+0000) Subject: (handle_single_display_prop): Fringe bitmaps are now X-Git-Tag: ttn-vms-21-2-B4~4782 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=db25ed416c7944021e8afc66f38de8131a1d9a7c;p=emacs.git (handle_single_display_prop): Fringe bitmaps are now symbols with a fringe property. --- diff --git a/src/xdisp.c b/src/xdisp.c index 874f1951256..2577bc46efb 100644 --- a/src/xdisp.c +++ b/src/xdisp.c @@ -307,6 +307,7 @@ extern Lisp_Object Qheight; 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. */ @@ -3578,8 +3579,9 @@ handle_single_display_prop (it, prop, object, position, #ifdef HAVE_WINDOW_SYSTEM value = XCAR (XCDR (prop)); - if (!NUMBERP (value) - || !valid_fringe_bitmap_id_p (XINT (value))) + if (!SYMBOLP (value) + || (value = Fget (value, Qfringe), + !valid_fringe_bitmap_p (value))) return 0; if (CONSP (XCDR (XCDR (prop))))