[Emacs-diffs] /srv/bzr/emacs/trunk r106096: Rewrite window related menu entries. (Bug#6786)

[martin rudalics]

------------------------------------------------------------
revno: 106096
committer: martin rudalics <address@hidden>
branch nick: trunk
timestamp: Mon 2011-10-17 14:52:31 +0200
message:
  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.
modified:
  lisp/ChangeLog
  lisp/menu-bar.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-10-15 19:24:14 +0000
+++ b/lisp/ChangeLog    2011-10-17 12:52:31 +0000
@@ -1,3 +1,9 @@
+2011-10-17  Martin Rudalics  <address@hidden>
+
+       * 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  <address@hidden>
 
        * emacs-lisp/ert.el (ert--explain-equal-rec, ert-select-tests):

=== modified file 'lisp/menu-bar.el'
--- a/lisp/menu-bar.el  2011-09-18 20:43:20 +0000
+++ b/lisp/menu-bar.el  2011-10-17 12:52:31 +0000
@@ -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")))
-
-    (define-key menu [split-window]
-      `(menu-item ,(purecopy "Split Window") split-window-vertically
-                  :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 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 [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 "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 @@
 
 (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