From 2eef02ab274cfdcf37fb197560b8695ba0f8c0ba Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Tue, 4 Sep 2001 08:10:29 +0000 Subject: [PATCH] Fix separators in the Edit menu. Bring "Fill" near "Text Properties". --- lisp/ChangeLog | 6 ++++++ lisp/menu-bar.el | 19 ++++++++++--------- 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 + + * menu-bar.el: Fix separators in the Edit menu. Bring "Fill" near + "Text Properties". Suggested by Simon Marshall + . + 2001-09-04 Andrew Choi * 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.")) -- 2.39.5