From 4c0252a56b258aa5f2de72c3bf7b8c8440bd4571 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jan=20Dj=C3=A4rv?= Date: Tue, 13 Dec 2005 11:07:50 +0000 Subject: [PATCH] * menu-bar.el (menu-bar-showhide-fringe-menu): Moved "On the Right" so it comes after "On the Left" in the menu. --- lisp/ChangeLog | 5 +++++ lisp/menu-bar.el | 24 ++++++++++++------------ 2 files changed, 17 insertions(+), 12 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c6e47e6556..cee47ad6a0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-12-13 Jan Dj,Ad(Brv + + * 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 * cus-edit.el (customize-apropos, customize-apropos-options) diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 56745d82cc..3d226b9258 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) -- 2.20.1