# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1111532444 0
# Node ID 94900ab8eef0532e911b5fa0f5dacf9053432bbf
# Parent  ec5f051c1eb07514fcb649e18bc2405ed1ab8f44
(draw_fringe_bitmap_1, Fset_fringe_bitmap_face):
Derive face from fringe face.

diff -r ec5f051c1eb0 -r 94900ab8eef0 src/fringe.c
--- a/src/fringe.c	Tue Mar 22 23:00:23 2005 +0000
+++ b/src/fringe.c	Tue Mar 22 23:00:44 2005 +0000
@@ -551,7 +551,8 @@
       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 (!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");
     }