From: Jan Djärv <jan.h.d@swipnet.se>
Date: Tue, 13 Dec 2005 11:07:50 +0000 (+0000)
Subject: * menu-bar.el (menu-bar-showhide-fringe-menu): Moved "On the Right"
X-Git-Tag: emacs-pretest-22.0.90~5298
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4c0252a56b258aa5f2de72c3bf7b8c8440bd4571;p=emacs.git

* 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 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)