diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2001-09-04 08:10:29 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2001-09-04 08:10:29 +0000 |
| commit | 2eef02ab274cfdcf37fb197560b8695ba0f8c0ba (patch) | |
| tree | 0034849ff875d4497e6e3d221e0dd4977492da56 /lisp | |
| parent | 2f64cf3ace5559ef474abb0153377e8be078c7f6 (diff) | |
| download | emacs-2eef02ab274cfdcf37fb197560b8695ba0f8c0ba.tar.gz | |
Fix separators in the Edit menu. Bring "Fill" near "Text Properties".
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | 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 <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.")) |