[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 998b533 10/27: Make sure `windmove-wrap-around' is nil dur
From: |
Oleh Krehel |
Subject: |
[elpa] master 998b533 10/27: Make sure `windmove-wrap-around' is nil during tests |
Date: |
Sat, 24 Jan 2015 20:36:31 +0000 |
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)))
- [elpa] master updated (c7f675e -> 7b78b37), Oleh Krehel, 2015/01/24
- [elpa] master 916a130 05/27: Depend on cl-lib v0.5 for `cl-mapcar', Oleh Krehel, 2015/01/24
- [elpa] master a179f31 04/27: Unbind hydra's body unconditionally to avoid error, Oleh Krehel, 2015/01/24
- [elpa] master abef4bf 02/27: Split away the examples, Oleh Krehel, 2015/01/24
- [elpa] master 2a367fa 03/27: README.md: update doc, Oleh Krehel, 2015/01/24
- [elpa] master f55c1ff 07/27: Add `hydra-is-helpful' custom var, Oleh Krehel, 2015/01/24
- [elpa] master 9b86656 01/27: Initial import, Oleh Krehel, 2015/01/24
- [elpa] master 6966e14 11/27: Fix the bugged `global-set-key' version, Oleh Krehel, 2015/01/24
- [elpa] master 11323ec 06/27: Allow to use minor-mode-maps and more, Oleh Krehel, 2015/01/24
- [elpa] master dbd77f0 09/27: Don't unbind hydra's body, unless using global-set-key, Oleh Krehel, 2015/01/24
- [elpa] master 998b533 10/27: Make sure `windmove-wrap-around' is nil during tests,
Oleh Krehel <=
- [elpa] master 5318fc3 08/27: Update `hydra-create' format, Oleh Krehel, 2015/01/24
- [elpa] master e156bf2 12/27: Require cl at compile time, Oleh Krehel, 2015/01/24
- [elpa] master 69bb4a4 13/27: Fix `kbd' interpretting "<tab>" char-by-char, Oleh Krehel, 2015/01/24
- [elpa] master b982fe5 14/27: Allow to add one head that disables the Hydra, Oleh Krehel, 2015/01/24
- [elpa] master c3ce0a9 15/27: `hydra-create' will also define `hydra-...-body', Oleh Krehel, 2015/01/24
- [elpa] master 8884698 17/27: Don't undefine BODY's map binding when it's a prefix, Oleh Krehel, 2015/01/24
- [elpa] master dfe1273 19/27: Simplify and improve the generated defuns, Oleh Krehel, 2015/01/24
- [elpa] master 301b500 16/27: Don't undefine BODY's global binding when it's a prefix, Oleh Krehel, 2015/01/24
- [elpa] master 42538fa 18/27: Add a `next-error'/`previous-error'/`first-error' example, Oleh Krehel, 2015/01/24
- [elpa] master dc0246e 20/27: hydra-examples.el (hydra-example-goto-error): add doc, Oleh Krehel, 2015/01/24