branch: externals/window-commander
commit 04d2ebaf4bfb94592e91780a7a599f4c3f76d10b
Author: Daniel Semyonov <dan...@dsemy.com>
Commit: Daniel Semyonov <dan...@dsemy.com>
; Improve? menu bar command labels
---
window-commander.el | 18 +++++++++++-------
1 file changed, 11 insertions(+), 7 deletions(-)
diff --git a/window-commander.el b/window-commander.el
index ed74373ab4..50bb65d2e7 100644
--- a/window-commander.el
+++ b/window-commander.el
@@ -496,21 +496,25 @@ selection.")
(defvar wincom-mode-menu
(let ((map (make-sparse-keymap "Windows")))
(define-key map [swap]
- '("Swap with current..." . wincom-swap))
+ '("Select Window to Swap with the Current Window..."
+ . wincom-swap))
(when (fboundp 'display-buffer-override-next-command)
(define-key map [prefix]
- '("Redirect buffer of next command..."
+ '("Select Window to Show Buffer of Next Command in..."
. wincom-selected-window-prefix)))
(define-key map [split-right]
- '("New on right..." . wincom-split-window-right))
+ '("Select Window to Split Vertically..."
+ . wincom-split-window-right))
(define-key map [split-below]
- '("New below..." . wincom-split-window-below))
+ '("Select Window to Split Horizontally..."
+ . wincom-split-window-below))
(define-key map [delete-other]
- '("Remove others..." . wincom-delete-other))
+ '("Select Window to Occupy Whole Frame..."
+ . wincom-delete-other))
(define-key map [delete]
- '("Remove..." . wincom-delete))
+ '("Select Window to Delete..." . wincom-delete))
(define-key map [select]
- '("Select..." . wincom-select))
+ '("Select Window..." . wincom-select))
map)
"Menu for window commands.")
