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
commit4c0252a56b258aa5f2de72c3bf7b8c8440bd4571 (patch)
treecead3aa2bef09604895cf3f20b4293910e1a6105 /lisp/menu-bar.el
parent0322b9c3a117afc983baa2384da6f71aa87421f1 (diff)
downloademacs-4c0252a56b258aa5f2de72c3bf7b8c8440bd4571.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)