branch: externals/ace-window
commit 896961694495afe22a87eb5fed8f794b0087fbde
Author: Nick Drozd <[email protected]>
Commit: Oleh Krehel <[email protected]>
Add execute-command-other-window
Fixes #160
---
ace-window.el | 11 +++++++++++
1 file changed, 11 insertions(+)
diff --git a/ace-window.el b/ace-window.el
index bc9a446..bc48edd 100644
--- a/ace-window.el
+++ b/ace-window.el
@@ -162,6 +162,7 @@ Consider changing this if the overlay tends to overlap with
other things."
(?j aw-switch-buffer-in-window "Select Buffer")
(?n aw-flip-window)
(?u aw-switch-buffer-other-window "Switch Buffer Other Window")
+ (?e aw-execute-command-other-window "Execute Command Other Window")
(?F aw-split-window-fair "Split Fair Window")
(?v aw-split-window-vert "Split Vert Window")
(?b aw-split-window-horz "Split Horz Window")
@@ -763,6 +764,16 @@ Modify `aw-fair-aspect-ratio' to tweak behavior."
(aw--switch-buffer)
(aw-flip-window)))
+(defun aw-execute-command-other-window (window)
+ "Exectute a command in WINDOW."
+ (aw-switch-to-window window)
+ (unwind-protect
+ (funcall
+ (key-binding
+ (read-key-sequence
+ "Enter key sequence: ")))
+ (aw-flip-window)))
+
(defun aw--face-rel-height ()
(let ((h (face-attribute 'aw-leading-char-face :height)))
(cond
