* menu-bar.el (menu-bar-showhide-fringe-menu): Moved "On the Right"

so it comes after "On the Left" in the menu.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c6e47e6..cee47ad 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-12-13  Jan Dj\e,Ad\e(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 56745d8..3d226b9 100644 (file)
--- 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)