Mercurial > emacs
diff lisp/menu-bar.el @ 67550:7c0bd57ed595
* menu-bar.el (menu-bar-showhide-fringe-menu): Moved "On the Right"
so it comes after "On the Left" in the menu.
author | Jan Djärv <jan.h.d@swipnet.se> |
---|---|
date | Tue, 13 Dec 2005 11:07:50 +0000 |
parents | 2c1c0c628ff3 |
children | 3fbbf35e6d87 |
line wrap: on
line diff
--- 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)