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

2 files changed, 16 insertions, 9 deletions

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."))