Commit 4c0252a5 authored by Jan Djärv's avatar Jan Djärv
Browse files

* menu-bar.el (menu-bar-showhide-fringe-menu): Moved "On the Right"

so it comes after "On the Left" in the menu.
parent 0322b9c3
2005-12-13 Jan Dj,Ad(Brv <jan.h.d@swipnet.se>
* menu-bar.el (menu-bar-showhide-fringe-menu): Moved "On the Right"
so it comes after "On the Left" in the menu.
2005-12-12 Luc Teirlinck <teirllm@auburn.edu>
 
* cus-edit.el (customize-apropos, customize-apropos-options)
......
......@@ -831,18 +831,6 @@ mail status in mode line"))
:visible (display-graphic-p)
:button (:radio . (eq fringe-mode nil))))
(defun menu-bar-showhide-fringe-menu-customize-left ()
"Display fringes only on the left of each window."
(interactive)
(require 'fringe)
(customize-set-variable 'fringe-mode '(nil . 0)))
(define-key menu-bar-showhide-fringe-menu [left]
'(menu-item "On the Left" menu-bar-showhide-fringe-menu-customize-left
:help "Fringe only on the left side"
:visible (display-graphic-p)
:button (:radio . (equal fringe-mode '(nil . 0)))))
(defun menu-bar-showhide-fringe-menu-customize-right ()
"Display fringes only on the right of each window."
(interactive)
......@@ -855,6 +843,18 @@ mail status in mode line"))
:visible (display-graphic-p)
:button (:radio . (equal fringe-mode '(0 . nil)))))
(defun menu-bar-showhide-fringe-menu-customize-left ()
"Display fringes only on the left of each window."
(interactive)
(require 'fringe)
(customize-set-variable 'fringe-mode '(nil . 0)))
(define-key menu-bar-showhide-fringe-menu [left]
'(menu-item "On the Left" menu-bar-showhide-fringe-menu-customize-left
:help "Fringe only on the left side"
:visible (display-graphic-p)
:button (:radio . (equal fringe-mode '(nil . 0)))))
(defun menu-bar-showhide-fringe-menu-customize-disable ()
"Do not display window fringes."
(interactive)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment