diff options
| author | Kim F. Storm <storm@cua.dk> | 2004-10-04 14:13:18 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2004-10-04 14:13:18 +0000 |
| commit | d3848fe90d754861881f185b1bc1445d70fc8cdc (patch) | |
| tree | aabfa9c93c2379e6ddb60678defadaa78106d49d /src/fringe.c | |
| parent | 13fcb8896ef7374bd957823f8e526d0ced20f287 (diff) | |
| download | emacs-d3848fe90d754861881f185b1bc1445d70fc8cdc.tar.gz emacs-d3848fe90d754861881f185b1bc1445d70fc8cdc.tar.bz2 emacs-d3848fe90d754861881f185b1bc1445d70fc8cdc.zip | |
(Ffringe_bitmaps_at_pos): Change return value from cons
to list. Include overlay arrow bitmap in return value.
Diffstat (limited to 'src/fringe.c')
| -rw-r--r-- | src/fringe.c | 12 |
1 files changed, 7 insertions, 5 deletions
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; } |