Re: Display feature request: gud-overlay-arrow

[Nick Roberts]

 > Can't you do that via the fringe-indicator-alist variable ?

Yes.

 > I guess it would be easier to do if we had a "post-switch-buffer-hook" that
 > is called (after post-command-hook) whenever a new buffer is selected
 > in the command loop.

No, the variable fringe-indicator-alist works fine (for my purpose anyway),
I just wasn't familiar with it.

Is it OK to commit the patch below?  It includes some minor corrections
to the doco.


-- 
Nick                                           http://www.inet.net.nz/~nickrob



2006-03-21  Nick Roberts  <address@hidden>

        * fringe.c (short hollow_right_triangle_bits) New bitmap.
        (standard_bitmaps): Add it to the list.


2006-03-21  Nick Roberts  <address@hidden>

        * fringe.el: Add hollow-right-triangle to the list of standard
         bitmaps.

2006-03-21  Nick Roberts  <address@hidden>

        * display.texi (Fringe Indicators): Add hollow-right-triangle to
         the list of standard bitmaps. Correct typos.


*** fringe.c    16 Mar 2006 09:42:25 +1300      1.40
--- fringe.c    21 Mar 2006 15:43:44 +1200      
*************** static unsigned short left_triangle_bits
*** 242,247 ****
--- 242,261 ----
  static unsigned short right_triangle_bits[] = {
     0xc0, 0xf0, 0xf8, 0xfc, 0xfc, 0xf8, 0xf0, 0xc0};
  
+ /* Hollow triangular arrow.  */
+ /*
+   xxx.....
+   x..x....
+   x...x...
+   x....x..
+   x....x..
+   x...x...
+   x..x....
+   xxx.....
+ */
+ static unsigned short hollow_right_triangle_bits[] = {
+    0xe0, 0x90, 0x88, 0x84, 0x84, 0x88, 0x90, 0xe0};
+ 
  /* First line bitmap.  An top-left angle.  */
  /*
    xxxxxx..
*************** static unsigned short empty_line_bits[] 
*** 451,478 ****
  struct fringe_bitmap standard_bitmaps[] =
  {
    { NULL, 0, 0, 0, 0, 0 }, /* NO_FRINGE_BITMAP */
!   { FRBITS (question_mark_bits),      8, 0, ALIGN_BITMAP_CENTER, 0 },
!   { FRBITS (left_arrow_bits),         8, 0, ALIGN_BITMAP_CENTER, 0 },
!   { FRBITS (right_arrow_bits),        8, 0, ALIGN_BITMAP_CENTER, 0 },
!   { FRBITS (up_arrow_bits),           8, 0, ALIGN_BITMAP_TOP,    0 },
!   { FRBITS (down_arrow_bits),         8, 0, ALIGN_BITMAP_BOTTOM, 0 },
!   { FRBITS (left_curly_arrow_bits),   8, 0, ALIGN_BITMAP_CENTER, 0 },
!   { FRBITS (right_curly_arrow_bits),  8, 0, ALIGN_BITMAP_CENTER, 0 },
!   { FRBITS (left_triangle_bits),      8, 0, ALIGN_BITMAP_CENTER, 0 },
!   { FRBITS (right_triangle_bits),     8, 0, ALIGN_BITMAP_CENTER, 0 },
!   { FRBITS (top_left_angle_bits),     8, 0, ALIGN_BITMAP_TOP,    0 },
!   { FRBITS (top_right_angle_bits),    8, 0, ALIGN_BITMAP_TOP,    0 },
!   { FRBITS (bottom_left_angle_bits),  8, 0, ALIGN_BITMAP_BOTTOM, 0 },
!   { FRBITS (bottom_right_angle_bits), 8, 0, ALIGN_BITMAP_BOTTOM, 0 },
!   { FRBITS (left_bracket_bits),       8, 0, ALIGN_BITMAP_CENTER, 0 },
!   { FRBITS (right_bracket_bits),      8, 0, ALIGN_BITMAP_CENTER, 0 },
!   { FRBITS (filled_rectangle_bits),   8, 0, ALIGN_BITMAP_CENTER, 0 },
!   { FRBITS (hollow_rectangle_bits),   8, 0, ALIGN_BITMAP_CENTER, 0 },
!   { FRBITS (filled_square_bits),      8, 0, ALIGN_BITMAP_CENTER, 0 },
!   { FRBITS (hollow_square_bits),      8, 0, ALIGN_BITMAP_CENTER, 0 },
!   { FRBITS (vertical_bar_bits),       8, 0, ALIGN_BITMAP_CENTER, 0 },
!   { FRBITS (horizontal_bar_bits),     8, 0, ALIGN_BITMAP_BOTTOM, 0 },
!   { FRBITS (empty_line_bits),         8, 3, ALIGN_BITMAP_TOP,    0 },
  };
  
  #define NO_FRINGE_BITMAP 0
--- 465,493 ----
  struct fringe_bitmap standard_bitmaps[] =
  {
    { NULL, 0, 0, 0, 0, 0 }, /* NO_FRINGE_BITMAP */
!   { FRBITS (question_mark_bits),         8, 0, ALIGN_BITMAP_CENTER, 0 },
!   { FRBITS (left_arrow_bits),            8, 0, ALIGN_BITMAP_CENTER, 0 },
!   { FRBITS (right_arrow_bits),           8, 0, ALIGN_BITMAP_CENTER, 0 },
!   { FRBITS (up_arrow_bits),              8, 0, ALIGN_BITMAP_TOP,    0 },
!   { FRBITS (down_arrow_bits),            8, 0, ALIGN_BITMAP_BOTTOM, 0 },
!   { FRBITS (left_curly_arrow_bits),      8, 0, ALIGN_BITMAP_CENTER, 0 },
!   { FRBITS (right_curly_arrow_bits),     8, 0, ALIGN_BITMAP_CENTER, 0 },
!   { FRBITS (left_triangle_bits),         8, 0, ALIGN_BITMAP_CENTER, 0 },
!   { FRBITS (right_triangle_bits),        8, 0, ALIGN_BITMAP_CENTER, 0 },
!   { FRBITS (hollow_right_triangle_bits), 8, 0, ALIGN_BITMAP_CENTER, 0 },
!   { FRBITS (top_left_angle_bits),        8, 0, ALIGN_BITMAP_TOP,    0 },
!   { FRBITS (top_right_angle_bits),       8, 0, ALIGN_BITMAP_TOP,    0 },
!   { FRBITS (bottom_left_angle_bits),     8, 0, ALIGN_BITMAP_BOTTOM, 0 },
!   { FRBITS (bottom_right_angle_bits),    8, 0, ALIGN_BITMAP_BOTTOM, 0 },
!   { FRBITS (left_bracket_bits),          8, 0, ALIGN_BITMAP_CENTER, 0 },
!   { FRBITS (right_bracket_bits),         8, 0, ALIGN_BITMAP_CENTER, 0 },
!   { FRBITS (filled_rectangle_bits),      8, 0, ALIGN_BITMAP_CENTER, 0 },
!   { FRBITS (hollow_rectangle_bits),      8, 0, ALIGN_BITMAP_CENTER, 0 },
!   { FRBITS (filled_square_bits),         8, 0, ALIGN_BITMAP_CENTER, 0 },
!   { FRBITS (hollow_square_bits),         8, 0, ALIGN_BITMAP_CENTER, 0 },
!   { FRBITS (vertical_bar_bits),          8, 0, ALIGN_BITMAP_CENTER, 0 },
!   { FRBITS (horizontal_bar_bits),        8, 0, ALIGN_BITMAP_BOTTOM, 0 },
!   { FRBITS (empty_line_bits),            8, 3, ALIGN_BITMAP_TOP,    0 },
  };
  
  #define NO_FRINGE_BITMAP 0


*** fringe.el   22 Feb 2006 14:42:39 +1300      1.27
--- fringe.el   21 Mar 2006 15:34:07 +1200      
***************
*** 47,53 ****
    (let ((bitmaps '(question-mark
                   left-arrow right-arrow up-arrow down-arrow
                   left-curly-arrow right-curly-arrow
!                  left-triangle right-triangle
                   top-left-angle top-right-angle
                   bottom-left-angle bottom-right-angle
                   left-bracket right-bracket
--- 47,53 ----
    (let ((bitmaps '(question-mark
                   left-arrow right-arrow up-arrow down-arrow
                   left-curly-arrow right-curly-arrow
!                  left-triangle right-triangle hollow-right-triangle
                   top-left-angle top-right-angle
                   bottom-left-angle bottom-right-angle
                   left-bracket right-bracket


*** display.texi        17 Mar 2006 11:37:48 +1300      1.211
--- display.texi        21 Mar 2006 15:27:53 +1200      
*************** used in both left and right fringes.
*** 2876,2887 ****
  When @code{fringe-indicator-alist} has a buffer-local value, and there
  is no bitmap defined for a logical indicator, or the bitmap is
  @code{t}, the corresponding value from the (non-local)
! @code{default-fringes-indicator-alist} is used.
  
  To completely hide a specific indicator, set the bitmap to @code{nil}.
  @end defvar
  
! @defvar default-fringes-indicator-alist
  The value of this variable is the default value for
  @code{fringe-indicator-alist} in buffers that do not override it.
  @end defvar
--- 2876,2887 ----
  When @code{fringe-indicator-alist} has a buffer-local value, and there
  is no bitmap defined for a logical indicator, or the bitmap is
  @code{t}, the corresponding value from the (non-local)
! @code{default-fringe-indicator-alist} is used.
  
  To completely hide a specific indicator, set the bitmap to @code{nil}.
  @end defvar
  
! @defvar default-fringe-indicator-alist
  The value of this variable is the default value for
  @code{fringe-indicator-alist} in buffers that do not override it.
  @end defvar
*************** The value of this variable is the defaul
*** 2890,2897 ****
  @item Standard fringe bitmaps for indicators:
  @code{left-arrow}, @code{right-arrow}, @code{up-arrow}, @code{down-arrow},
  @code{left-curly-arrow}, @code{right-curly-arrow},
! @code{left-triangle}, @code{right-triangle},
! @code{top-left-angle}, @code{ top-right-angle},
  @code{bottom-left-angle}, @code{bottom-right-angle},
  @code{left-bracket}, @code{right-bracket},
  @code{filled-rectangle}, @code{hollow-rectangle},
--- 2890,2897 ----
  @item Standard fringe bitmaps for indicators:
  @code{left-arrow}, @code{right-arrow}, @code{up-arrow}, @code{down-arrow},
  @code{left-curly-arrow}, @code{right-curly-arrow},
! @code{left-triangle}, @code{right-triangle}, @code{hollow-right-triangle},
! @code{top-left-angle}, @code{top-right-angle},
  @code{bottom-left-angle}, @code{bottom-right-angle},
  @code{left-bracket}, @code{right-bracket},
  @code{filled-rectangle}, @code{hollow-rectangle},