From ba634984f136240ae13c4511c6c75948a8f2af11 Mon Sep 17 00:00:00 2001 From: Michael Raitza Date: Fri, 12 Oct 2012 12:50:38 +0200 Subject: [PATCH] Changed frame-select-*-child to wrap around. --- src/clfswm-internal.lisp | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/src/clfswm-internal.lisp b/src/clfswm-internal.lisp index 964f4b9..8924624 100644 --- a/src/clfswm-internal.lisp +++ b/src/clfswm-internal.lisp @@ -1372,8 +1372,7 @@ For window: set current child to window or its parent according to window-parent "Select the next child in the current frame" (when (frame-p (current-child)) (with-slots (child selected-pos) (current-child) - (unless (>= selected-pos (length child)) - (incf selected-pos))) + (setf selected-pos (mod (1+ selected-pos) (length child)))) (show-all-children))) @@ -1381,8 +1380,7 @@ For window: set current child to window or its parent according to window-parent "Select the previous child in the current frame" (when (frame-p (current-child)) (with-slots (child selected-pos) (current-child) - (unless (< selected-pos 1) - (decf selected-pos))) + (setf selected-pos (mod (1- selected-pos) (length child)))) (show-all-children))) -- 2.11.4.GIT