(fringe-query-style): New fringe style "minimal".

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4972523657a024b04e5e6c7f1d638a93bacb9c3e..a92edd214e57b178d6932ab6d0eb99496734cc0d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2002-05-26  Simon Josefsson  <jas@extundo.com>
+
+       * fringe.el (fringe-query-style): New fringe style "minimal".
+
 2002-05-24  Simon Josefsson  <jas@extundo.com>
 
        * rot13.el (rot13-translate-table): New variable.

diff --git a/lisp/fringe.el b/lisp/fringe.el
index 67dae5c1b49fbec16428e4c6944e9ec490a14427..5a4dce128c6332379bc5df3e322dc6c523dd4688 100644 (file)
--- a/lisp/fringe.el
+++ b/lisp/fringe.el
@@ -115,13 +115,14 @@ frame parameter is used."
   (let ((mode (intern (completing-read
                       "Select fringe mode for all frames (SPACE for list): "
                       '(("none") ("default") ("left-only")
-                        ("right-only") ("half"))
+                        ("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,10 +135,10 @@ frame parameter is used."
 (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.
+`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,10 +150,10 @@ see `set-fringe-style'."
 (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.
+`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