Commit b8f7ff0d authored by Martin Rudalics's avatar Martin Rudalics
Browse files

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.
parent 344465fd
2011-10-17 Martin Rudalics <rudalics@gmx.at>
* 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.
2011-10-15 Glenn Morris <rgm@gnu.org>
* emacs-lisp/ert.el (ert--explain-equal-rec, ert-select-tests):
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment