Re: Bad interaction between set-fringe-style and set-window-fringes.

[Lute Kamstra]

address@hidden (Kim F. Storm) writes:

> Lute Kamstra <address@hidden> writes:
>
>> So after calling set-window-fringes, set-fringe-style does not work
>> anymore.
>
> As expected...  set-fringe-style sets the frame's default fringe settings,
> while set-window-fringes only modifies the selected window's fringe.
>
> You should see the difference if your frame has more than one window...

I see.  Maybe we should elaborate the docstrings a little bit so that
the next Lute Kamstra that comes along won't bother you so much as
this one.  ;-)

What about the patch below?

  Lute.


Index: lisp/fringe.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/fringe.el,v
retrieving revision 1.6
diff -c -r1.6 fringe.el
*** lisp/fringe.el      1 Sep 2003 15:45:12 -0000       1.6
--- lisp/fringe.el      10 Oct 2003 12:59:04 -0000
***************
*** 139,166 ****
  
  ;;;###autoload
  (defun fringe-mode (&optional mode)
!   "Toggle appearance of fringes on all frames.
! Valid values for MODE include `none', `default', `left-only',
! `right-only', `minimal' and `half'.  MODE can also be a cons cell
! where the integer in car will be used as left fringe width and the
! integer in cdr will be used as right fringe width. If MODE is not
! specified, the user is queried.
! It applies to all frames that exist and frames to be created in the
! future.
! If you want to set appearance of fringes on the selected frame only,
! see `set-fringe-style'."
    (interactive (list (fringe-query-style 'all-frames)))
    (set-fringe-mode mode))
  
  ;;;###autoload
  (defun set-fringe-style (&optional mode)
!   "Set appearance of fringes on selected frame.
! Valid values for MODE include `none', `default', `left-only',
! `right-only', `minimal' and `half'.  MODE can also be a cons cell
! where the integer in car will be used as left fringe width and the
! integer in cdr will be used as right fringe width. If MODE is not
! specified, the user is queried.
! If you want to set appearance of fringes on all frames, see `fringe-mode'."
    (interactive (list (fringe-query-style)))
    (modify-frame-parameters
     (selected-frame)
--- 139,185 ----
  
  ;;;###autoload
  (defun fringe-mode (&optional mode)
!   "Set default appearance of fringes on all frames.
! 
! When called interactively, the user is queried for MODE.  Valid
! values for MODE include `none', `default', `left-only',
! `right-only', `minimal' and `half'.
! 
! When used in a Lisp program, MODE can be a cons cell where the
! integer in car specifies the left fringe width and the integer in
! cdr specifies the right fringe width.  MODE can also be a single
! integer that specifies both the left and the right fringe width.
! When nil is used instead of an integer, that means to use the
! default frame width (8 pixels).  These width specifications may
! be rounded up to ensure that their sum is a multiple of the
! character width of a frame.
! 
! This command applies to all frames that exist and frames to be
! created in the future.  If you want to set the appearance of
! fringes on the selected frame only, see the command
! `set-fringe-style'."
    (interactive (list (fringe-query-style 'all-frames)))
    (set-fringe-mode mode))
  
  ;;;###autoload
  (defun set-fringe-style (&optional mode)
!   "Set default appearance of fringes on selected frame.
! 
! When called interactively, the user is queried for MODE.  Valid
! values for MODE include `none', `default', `left-only',
! `right-only', `minimal' and `half'.
! 
! When used in a Lisp program, MODE can be a cons cell where the
! integer in car specifies the left fringe width and the integer in
! cdr specifies the right fringe width.  MODE can also be a single
! integer that specifies both the left and the right fringe width.
! When nil is used instead of an integer, that means to use the
! default frame width (8 pixels).  These width specifications may
! be rounded up to ensure that their sum is a multiple of the
! character width of the frame.
! 
! If you want to set the appearance of fringes on all frames, see
! the command `fringe-mode'."
    (interactive (list (fringe-query-style)))
    (modify-frame-parameters
     (selected-frame)