diff options
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) |