(draw_fringe_bitmap_1, Fset_fringe_bitmap_face):

Derive face from fringe face.

diff --git a/src/fringe.c b/src/fringe.c
index 9e9d6be081c3e7230a325a12dca17e6be5813709..f375159c8bcfdfdb63397d0dfc9ec58a0bbc6f6b 100644 (file)
--- a/src/fringe.c
+++ b/src/fringe.c
@@ -551,7 +551,8 @@ draw_fringe_bitmap_1 (w, row, left_p, overlay, which)
       Lisp_Object face;
 
       if ((face = fringe_faces[which], NILP (face))
-         || (face_id = lookup_named_face (f, face, 'A', 1), face_id < 0))
+         || (face_id = lookup_derived_face (f, face, 'A', FRINGE_FACE_ID, 0),
+             face_id < 0))
        face_id = FRINGE_FACE_ID;
     }
 
@@ -1360,7 +1361,8 @@ If FACE is nil, reset face to default fringe face.  */)
 
   if (!NILP (face))
     {
-      face_id = lookup_named_face (SELECTED_FRAME (), face, 'A', 1);
+      face_id = lookup_derived_face (SELECTED_FRAME (), face,
+                                    'A', FRINGE_FACE_ID, 1);
       if (face_id < 0)
        error ("No such face");
     }