Mercurial > emacs
changeset 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 | 9732906a9ef7 |
| children | fe8f45a3c8a7 |
| files | lisp/ChangeLog lisp/menu-bar.el |
| diffstat | 2 files changed, 17 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- 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 <jan.h.d@swipnet.se> + + * 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 <teirllm@auburn.edu> * cus-edit.el (customize-apropos, customize-apropos-options)
--- 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)