(draw_fringe_bitmap_1, Fset_fringe_bitmap_face):

Derive face from fringe face.

1 files changed, 4 insertions, 2 deletions

diff --git a/src/fringe.c b/src/fringe.c
index 9e9d6be081c..f375159c8bc 100644
--- 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");
     }