[Emacs-diffs] Changes to emacs/lisp/fringe.el

[Simon Josefsson]

Index: emacs/lisp/fringe.el
diff -c emacs/lisp/fringe.el:1.1 emacs/lisp/fringe.el:1.2
*** emacs/lisp/fringe.el:1.1    Fri May 24 05:52:53 2002
--- emacs/lisp/fringe.el        Sat May 25 19:13:58 2002
***************
*** 115,127 ****
    (let ((mode (intern (completing-read
                       "Select fringe mode for all frames (SPACE for list): "
                       '(("none") ("default") ("left-only")
!                        ("right-only") ("half"))
                       nil t))))
      (cond ((eq mode 'none) 0)
          ((eq mode 'default) nil)
          ((eq mode 'left-only) '(nil . 0))
          ((eq mode 'right-only) '(0 . nil))
          ((eq mode 'half) '(5 . 5))
          ((eq mode (intern ""))
           (if (eq 0 (cdr (assq 'left-fringe
                                (if all-frames
--- 115,128 ----
    (let ((mode (intern (completing-read
                       "Select fringe mode for all frames (SPACE for list): "
                       '(("none") ("default") ("left-only")
!                        ("right-only") ("half") ("minimal"))
                       nil t))))
      (cond ((eq mode 'none) 0)
          ((eq mode 'default) nil)
          ((eq mode 'left-only) '(nil . 0))
          ((eq mode 'right-only) '(0 . nil))
          ((eq mode 'half) '(5 . 5))
+         ((eq mode 'minimal) '(1 . 1))
          ((eq mode (intern ""))
           (if (eq 0 (cdr (assq 'left-fringe
                                (if all-frames
***************
*** 134,143 ****
  (defun fringe-mode (&optional mode)
    "Toggle appearance of fringes on all frames.
  Valid values for MODE include `none', `default', `left-only',
! `right-only' 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,
--- 135,144 ----
  (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,
***************
*** 149,158 ****
  (defun set-fringe-style (&optional mode)
    "Set appearance of fringes on selected frame.
  Valid values for MODE include `none', `default', `left-only',
! `right-only' 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
--- 150,159 ----
  (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