From: Kim F. Storm <storm@cua.dk>
Date: Tue, 22 Mar 2005 23:00:44 +0000 (+0000)
Subject: (draw_fringe_bitmap_1, Fset_fringe_bitmap_face):
X-Git-Tag: ttn-vms-21-2-B4~1616
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=308785c1247c6e3bb972aefb5b792070e5619d0f;p=emacs.git

(draw_fringe_bitmap_1, Fset_fringe_bitmap_face):
Derive face from fringe face.
---

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");
     }