[elpa] externals/buffer-expose 260a2ed 20/38: Replace `windmove` with package commands

[Clemens Radermacher]

branch: externals/buffer-expose
commit 260a2edf6b6cb786dc4cd3e5541b0d345fe3da56
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>

    Replace `windmove` with package commands
---
 buffer-expose.el | 22 ++++++++++++++++++----
 1 file changed, 18 insertions(+), 4 deletions(-)

diff --git a/buffer-expose.el b/buffer-expose.el
index 8a985e9..ce8a798 100644
--- a/buffer-expose.el
+++ b/buffer-expose.el
@@ -191,10 +191,10 @@ question as its argument."
     (define-key map (kbd "<right>") 'buffer-expose-right-window)
     (define-key map (kbd "f") 'buffer-expose-right-window)
     (define-key map (kbd "C-h k") 'describe-key)
-    (define-key map (kbd "p") 'windmove-up)
-    (define-key map (kbd "<up>") 'windmove-up)
-    (define-key map (kbd "<down>") 'windmove-down)
-    (define-key map (kbd "n") 'windmove-down)
+    (define-key map (kbd "p") 'buffer-expose-up-window)
+    (define-key map (kbd "<up>") 'buffer-expose-up-window)
+    (define-key map (kbd "<down>") 'buffer-expose-down-window)
+    (define-key map (kbd "n") 'buffer-expose-down-window)
     (define-key map (kbd "a") 'buffer-expose-first-window-in-row)
     (define-key map (kbd "e") 'buffer-expose-last-window-in-row)
     (define-key map (kbd "s") 'buffer-expose-switch-to-buffer)
@@ -893,6 +893,20 @@ F defaults to the currently selected window."
         (buffer-expose-next-page)
         (select-window (buffer-expose--get-window-in-row row))))))
 
+(defun buffer-expose-up-window ()
+  "Switch to window above."
+  (interactive)
+  (let ((w (window-in-direction 'above)))
+    (if w (select-window w)
+      (user-error "No window above current window"))))
+
+(defun buffer-expose-down-window ()
+  "Switch to window below."
+  (interactive)
+  (let ((w (window-in-direction 'below)))
+    (if w (select-window w)
+      (user-error "No window below current window"))))
+
 (defun buffer-expose-left-window ()
   "Switch to window at left side."
   (interactive)