From: Kim F. Storm <storm@cua.dk>
Date: Mon, 4 Oct 2004 14:13:18 +0000 (+0000)
Subject: (Ffringe_bitmaps_at_pos): Change return value from cons
X-Git-Tag: ttn-vms-21-2-B4~4732
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d3848fe90d754861881f185b1bc1445d70fc8cdc;p=emacs.git

(Ffringe_bitmaps_at_pos): Change return value from cons
to list.  Include overlay arrow bitmap in return value.
---

diff --git a/src/fringe.c b/src/fringe.c
index af2d40b7ee2..71057e1b5cb 100644
--- a/src/fringe.c
+++ b/src/fringe.c
@@ -1343,9 +1343,10 @@ DEFUN ("fringe-bitmaps-at-pos", Ffringe_bitmaps_at_pos, Sfringe_bitmaps_at_pos,
        0, 2, 0,
        doc: /* Return fringe bitmaps of row containing position POS in window WINDOW.
 If WINDOW is nil, use selected window.  If POS is nil, use value of point
-in that window.  Return value is a cons (LEFT . RIGHT) where LEFT and RIGHT
-are the fringe bitmap numbers for the bitmaps in the left and right fringe,
-resp.  If left or right fringe is empty, the corresponding element is nil.
+in that window.  Return value is a list (LEFT RIGHT OV), where LEFT
+is the symbol for the bitmap in the left fringe (or nil if no bitmap),
+RIGHT is similar for the right fringe, and OV is non-nil if there is an
+overlay arrow in the left fringe.
 Return nil if POS is not visible in WINDOW.  */)
   (pos, window)
      Lisp_Object pos, window;
@@ -1373,8 +1374,9 @@ Return nil if POS is not visible in WINDOW.  */)
   row = MATRIX_FIRST_TEXT_ROW (w->current_matrix);
   row = row_containing_pos (w, textpos, row, NULL, 0);
   if (row)
-    return Fcons (get_fringe_bitmap_name (row->left_fringe_bitmap),
-		  get_fringe_bitmap_name (row->right_fringe_bitmap));
+    return list3 (get_fringe_bitmap_name (row->left_fringe_bitmap),
+		  get_fringe_bitmap_name (row->right_fringe_bitmap),
+		  (row->overlay_arrow_p ? Qt : Qnil));
   else
     return Qnil;
 }