From: Eli Zaretskii <eliz@gnu.org>
Date: Tue, 4 Sep 2001 08:10:29 +0000 (+0000)
Subject: Fix separators in the Edit menu.  Bring "Fill" near "Text Properties".
X-Git-Tag: emacs-pretest-21.0.106~257
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2eef02ab274cfdcf37fb197560b8695ba0f8c0ba;p=emacs.git

Fix separators in the Edit menu.  Bring "Fill" near "Text Properties".
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 07a12fc9283..aa7e94212a9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-09-04  Eli Zaretskii  <eliz@is.elta.co.il>
+
+	* menu-bar.el: Fix separators in the Edit menu.  Bring "Fill" near
+	"Text Properties".  Suggested by Simon Marshall
+	<Simon.Marshall@midas-kapiti.com>.
+
 2001-09-04  Andrew Choi  <akochoi@cse.cuhk.edu.hk>
 
 	* term/mac-win.el (mac-drag-n-drop): Decode file name by
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index bfcf44985d5..2f48ce99600 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -313,16 +313,19 @@ A large number or nil slows down menu responsiveness."
   '(menu-item "Text Properties" facemenu-menu
 	      :help "Change properties of text in region"))
 
-(define-key menu-bar-search-menu [separator-search]
+(define-key menu-bar-edit-menu [fill]
+  '(menu-item "Fill" fill-region
+	      :enable (and mark-active (not buffer-read-only))
+	      :help
+	      "Fill text in region to fit between left and right margin"))
+
+(define-key menu-bar-edit-menu [separator-bookmark]
   '(menu-item "--"))
 
 (define-key menu-bar-edit-menu [bookmark]
   '(menu-item "Bookmarks" menu-bar-bookmark-map
 	      :help "Record positions and jump between them"))
 
-(define-key menu-bar-edit-menu [separator-bookmark]
-  '(menu-item "--"))
-
 (defvar menu-bar-goto-menu (make-sparse-keymap "Go To"))
 
 (define-key menu-bar-goto-menu [set-tags-name]
@@ -374,11 +377,9 @@ A large number or nil slows down menu responsiveness."
 (define-key menu-bar-edit-menu [search]
   (list 'menu-item "Search" menu-bar-search-menu))
 
-(define-key menu-bar-edit-menu [fill]
-  '(menu-item "Fill" fill-region
-	      :enable (and mark-active (not buffer-read-only))
-	      :help
-	      "Fill text in region to fit between left and right margin"))
+(define-key menu-bar-edit-menu [separator-search]
+  '(menu-item "--"))
+
 (define-key menu-bar-edit-menu [mark-whole-buffer]
   '(menu-item "Select All" mark-whole-buffer
 	      :help "Mark the whole buffer for a subsequent cut/copy."))