]> git.eshelyaron.com Git - emacs.git/commitdiff
(handle_single_display_prop): Fringe bitmaps are now
authorKim F. Storm <storm@cua.dk>
Tue, 28 Sep 2004 23:02:41 +0000 (23:02 +0000)
committerKim F. Storm <storm@cua.dk>
Tue, 28 Sep 2004 23:02:41 +0000 (23:02 +0000)
symbols with a fringe property.

src/xdisp.c

index 874f1951256783c93bd7b13d8ab0d1cb5ccc1941..2577bc46efb2db527852b0aec49b65a64700a80c 100644 (file)
@@ -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))))