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