[elpa] master 998b533 10/27: Make sure `windmove-wrap-around' is nil during tests

[Oleh Krehel]

branch: master
commit 998b53358781cab9901ca31a5c0b8b35e5af8cef
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    Make sure `windmove-wrap-around' is nil during tests
    
    * hydra-examples.el (hydra-move-splitter-left): Update.
    (hydra-move-splitter-right): Update.
    (hydra-move-splitter-up): Update.
    (hydra-move-splitter-down): Update.
---
 hydra-examples.el |   12 ++++++++----
 1 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/hydra-examples.el b/hydra-examples.el
index bb01b36..f8b0c44 100644
--- a/hydra-examples.el
+++ b/hydra-examples.el
@@ -36,28 +36,32 @@
 (defun hydra-move-splitter-left ()
   "Move window splitter left."
   (interactive)
-  (if (windmove-find-other-window 'right)
+  (if (let ((windmove-wrap-around))
+        (windmove-find-other-window 'right))
       (shrink-window-horizontally 1)
     (enlarge-window-horizontally 1)))
 
 (defun hydra-move-splitter-right ()
   "Move window splitter right."
   (interactive)
-  (if (windmove-find-other-window 'right)
+  (if (let ((windmove-wrap-around))
+        (windmove-find-other-window 'right))
       (enlarge-window-horizontally 1)
     (shrink-window-horizontally 1)))
 
 (defun hydra-move-splitter-up ()
   "Move window splitter up."
   (interactive)
-  (if (windmove-find-other-window 'up)
+  (if (let ((windmove-wrap-around))
+        (windmove-find-other-window 'up))
       (enlarge-window 1)
     (shrink-window 1)))
 
 (defun hydra-move-splitter-down ()
   "Move window splitter down."
   (interactive)
-  (if (windmove-find-other-window 'up)
+  (if (let ((windmove-wrap-around))
+        (windmove-find-other-window 'up))
       (shrink-window 1)
     (enlarge-window 1)))