diff options
| author | Martin Rudalics <rudalics@gmx.at> | 2011-10-17 14:52:31 +0200 |
|---|---|---|
| committer | Martin Rudalics <rudalics@gmx.at> | 2011-10-17 14:52:31 +0200 |
| commit | b8f7ff0d824570ae86e41d4c7d2ada423a231d24 (patch) | |
| tree | 4b9f7c4af28527b5e7046ece435931d8ed26cecd /lisp/menu-bar.el | |
| parent | 344465fd3b73502ea266e1009e99be93600d812f (diff) | |
| download | emacs-b8f7ff0d824570ae86e41d4c7d2ada423a231d24.tar.gz | |
Rewrite window related menu entries. (Bug#6786)
* menu-bar.el (menu-bar-file-menu): Add entry for making new
window on right of selected. (Bug#6786) Reword other window
entries and separate them from frame entries.
Diffstat (limited to 'lisp/menu-bar.el')
| -rw-r--r-- | lisp/menu-bar.el | 24 |
1 files changed, 16 insertions, 8 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index eceb3afc147..d75a768e2d4 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -92,17 +92,25 @@ :visible (fboundp 'make-frame-command) :help ,(purecopy "Open a new frame"))) + (define-key menu [separator-frame] + menu-bar-separator) + (define-key menu [one-window] - `(menu-item ,(purecopy "Remove Splits") delete-other-windows + `(menu-item ,(purecopy "Remove Other Windows") delete-other-windows :enable (not (one-window-p t nil)) - :help ,(purecopy - "Selected window grows to fill the whole frame"))) + :help ,(purecopy "Make selected window fill whole frame"))) + + (define-key menu [new-window-on-right] + `(menu-item ,(purecopy "New Window on Right") split-window-side-by-side + :enable (and (menu-bar-menu-frame-live-and-visible-p) + (menu-bar-non-minibuffer-window-p)) + :help ,(purecopy "Make new window on right of selected one"))) - (define-key menu [split-window] - `(menu-item ,(purecopy "Split Window") split-window-vertically + (define-key menu [new-window-below] + `(menu-item ,(purecopy "New Window Below") split-window-above-each-other :enable (and (menu-bar-menu-frame-live-and-visible-p) (menu-bar-non-minibuffer-window-p)) - :help ,(purecopy "Split selected window in two windows"))) + :help ,(purecopy "Make new window below selected one"))) (define-key menu [separator-window] menu-bar-separator) @@ -433,7 +441,7 @@ (defvar menu-bar-edit-menu (let ((menu (make-sparse-keymap "Edit"))) - + (define-key menu [props] `(menu-item ,(purecopy "Text Properties") facemenu-menu)) @@ -1645,7 +1653,7 @@ key, a click, or a menu-item"))) (defvar menu-bar-search-documentation-menu (let ((menu (make-sparse-keymap "Search Documentation"))) - + (define-key menu [search-documentation-strings] `(menu-item ,(purecopy "Search Documentation Strings...") apropos-documentation :help |