Mercurial > emacs
changeset 57316:3eb68ef1dcb7
(Ffringe_bitmaps_at_pos): Change return value from cons
to list. Include overlay arrow bitmap in return value.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Mon, 04 Oct 2004 14:13:18 +0000 |
| parents | 0d912ccf6554 |
| children | 8c91e4946786 |
| files | src/fringe.c |
| diffstat | 1 files changed, 7 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/src/fringe.c Mon Oct 04 14:07:06 2004 +0000 +++ b/src/fringe.c Mon Oct 04 14:13:18 2004 +0000 @@ -1343,9 +1343,10 @@ 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 @@ 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; }