# HG changeset patch # User Jan Dj¸«£rv # Date 1134472070 0 # Node ID 7c0bd57ed5950bc2ec94f17c5eaa41272c773518 # Parent 9732906a9ef7750e284811d4f031ce77d224d72d * menu-bar.el (menu-bar-showhide-fringe-menu): Moved "On the Right" so it comes after "On the Left" in the menu. diff -r 9732906a9ef7 -r 7c0bd57ed595 lisp/ChangeLog --- a/lisp/ChangeLog Tue Dec 13 03:46:02 2005 +0000 +++ b/lisp/ChangeLog Tue Dec 13 11:07:50 2005 +0000 @@ -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 -r 9732906a9ef7 -r 7c0bd57ed595 lisp/menu-bar.el --- a/lisp/menu-bar.el Tue Dec 13 03:46:02 2005 +0000 +++ b/lisp/menu-bar.el Tue Dec 13 11:07:50 2005 +0000 @@ -831,6 +831,18 @@ :visible (display-graphic-p) :button (:radio . (eq fringe-mode nil)))) +(defun menu-bar-showhide-fringe-menu-customize-right () + "Display fringes only on the right of each window." + (interactive) + (require 'fringe) + (customize-set-variable 'fringe-mode '(0 . nil))) + +(define-key menu-bar-showhide-fringe-menu [right] + '(menu-item "On the Right" menu-bar-showhide-fringe-menu-customize-right + :help "Fringe only on the right side" + :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) @@ -843,18 +855,6 @@ :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) - (require 'fringe) - (customize-set-variable 'fringe-mode '(0 . nil))) - -(define-key menu-bar-showhide-fringe-menu [right] - '(menu-item "On the Right" menu-bar-showhide-fringe-menu-customize-right - :help "Fringe only on the right side" - :visible (display-graphic-p) - :button (:radio . (equal fringe-mode '(0 . nil))))) - (defun menu-bar-showhide-fringe-menu-customize-disable () "Do not display window fringes." (interactive)