From ce06c8d20b5dd0b0ed87b823247c2f3a1f895ff4 Mon Sep 17 00:00:00 2001 From: Matt Shen Date: Thu, 6 Nov 2008 10:00:21 -0800 Subject: [PATCH] Added fprev --- tile-group.lisp | 4 ++++ 1 files changed, 4 insertions(+), 0 deletions(-) diff --git a/tile-group.lisp b/tile-group.lisp index 00838f6..de688b5 100644 --- a/tile-group.lisp +++ b/tile-group.lisp @@ -955,6 +955,10 @@ the current frame." "Cycle through the frame tree to the next frame." (focus-next-frame (current-group))) +(defcommand (fprev tile-group) () () +"Cycle through the frame tree to the prev frame." + (focus-prev-frame (current-group))) + (defcommand (sibling tile-group) () () "Jump to the frame's sibling. If a frame is split into twe frames, these two frames are siblings." -- 1.6.0.3