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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 07a12fc9283b2a9359fe83bac9b1d92cb1549cab..aa7e94212a9210d012257688bdd2a2226331e0ce 100644 (file)
--- 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 bfcf44985d508f13f59c26ff910ebaab8807b19e..2f48ce99600c0083c22ba225df4a4fc0dfb034a2 100644 (file)
--- 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."))