changeset 39108:bb0557fdcd9a

Fix separators in the Edit menu. Bring "Fill" near "Text Properties".
author Eli Zaretskii <eliz@gnu.org>
date Tue, 04 Sep 2001 08:08:05 +0000
parents e4461ba10180
children 16db1b58f8ef
files lisp/menu-bar.el
diffstat 1 files changed, 10 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/menu-bar.el	Tue Sep 04 06:49:24 2001 +0000
+++ b/lisp/menu-bar.el	Tue Sep 04 08:08:05 2001 +0000
@@ -313,16 +313,19 @@
   '(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 @@
 (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."))