diff options
author | Jan Djärv <jan.h.d@swipnet.se> | 2005-12-13 11:07:50 +0000 |
---|---|---|
committer | Jan Djärv <jan.h.d@swipnet.se> | 2005-12-13 11:07:50 +0000 |
commit | 4c0252a56b258aa5f2de72c3bf7b8c8440bd4571 (patch) | |
tree | cead3aa2bef09604895cf3f20b4293910e1a6105 /lisp/menu-bar.el | |
parent | 0322b9c3a117afc983baa2384da6f71aa87421f1 (diff) | |
download | emacs-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.el | 24 |
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) |