mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Simon Josefsson 2002-05-25 23:14:11 +00:00
parent 280b8e5990
commit 19c8fe7542
2 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -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.

19
lisp/fringe.el
View File

@ -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