From: Martin Rudalics <rudalics@gmx.at>
Date: Mon, 17 Oct 2011 12:52:31 +0000 (+0200)
Subject: Rewrite window related menu entries.  (Bug#6786)
X-Git-Tag: emacs-pretest-24.0.91~110
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b8f7ff0d824570ae86e41d4c7d2ada423a231d24;p=emacs.git

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.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index abae693d0c8..90c1c42323b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+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):
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