diff options
| author | Jan Djärv <jan.h.d@swipnet.se> | 2005-12-13 11:07:50 +0000 |
|---|---|---|
| committer | Jan Djärv <jan.h.d@swipnet.se> | 2005-12-13 11:07:50 +0000 |
| commit | 4c0252a56b258aa5f2de72c3bf7b8c8440bd4571 (patch) | |
| tree | cead3aa2bef09604895cf3f20b4293910e1a6105 | |
| parent | 0322b9c3a117afc983baa2384da6f71aa87421f1 (diff) | |
| download | emacs-4c0252a56b258aa5f2de72c3bf7b8c8440bd4571.tar.gz | |
* menu-bar.el (menu-bar-showhide-fringe-menu): Moved "On the Right"
so it comes after "On the Left" in the menu.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/menu-bar.el | 24 |
2 files changed, 17 insertions, 12 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c6e47e65567..cee47ad6a01 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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) 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) |