summaryrefslogtreecommitdiff
path: root/lisp/menu-bar.el
diff options
context:
space:
mode:
authorJan Djärv <jan.h.d@swipnet.se>2005-12-13 11:07:50 +0000
committerJan Djärv <jan.h.d@swipnet.se>2005-12-13 11:07:50 +0000
commit7dd25b9897cb8c5bbab9d86088dccd063c84c439 (patch)
treee7da1a891763acac2aec7e64141588fd0693e1c4 /lisp/menu-bar.el
parent4875f6cdc2fc9d24372be8b0ec82fdb7f27de727 (diff)
downloademacs-7dd25b9897cb8c5bbab9d86088dccd063c84c439.tar.gz
* menu-bar.el (menu-bar-showhide-fringe-menu): Moved "On the Right"
so it comes after "On the Left" in the menu.
Diffstat (limited to 'lisp/menu-bar.el')
-rw-r--r--lisp/menu-bar.el24
1 files changed, 12 insertions, 12 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 56745d82cc4..3d226b9258b 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -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)