Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-47

[gnu-emacs] / src / xdisp.c

diff --git a/src/xdisp.c b/src/xdisp.c
index d8166a30df5402096da381524dd2f426290357dc..353a72f65b68ef2385f60a4b4ef360498166e308 100644 (file)
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -308,6 +308,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.  */
 
@@ -3581,8 +3582,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))))