[sawfish] don't let cycle-class ignore window-order [DMG]

[Christopher Bratusek <chrisb src gnome org>]

commit 9944e1aae1ca2a8b56c3c6dccfb362fa68608d05
Author: Christopher Roy Bratusek <chris nanolx org>
Date:   Sat Dec 5 11:50:42 2009 +0100

    don't let cycle-class ignore window-order [DMG]

 ChangeLog                           |    3 +++
 lisp/sawfish/wm/commands/x-cycle.jl |    3 ++-
 man/news.texi                       |    2 ++
 3 files changed, 7 insertions(+), 1 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index 1c4582f..68fec3d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,6 @@
+2009-12-05  Christopher Bratusek <zanghar freenet de>
+	* lisp/sawfish/wm/commands/x-cycle.jl: make cycle-class don't ignore window-order [Daniel M. German]
+
 2009-12-05  Teika Kazura <teika lavabit com>
 	* lisp/sawfish/wm/custom-defaults.jl
 	* lisp/sawfish/wm/ext/match-window.jl
diff --git a/lisp/sawfish/wm/commands/x-cycle.jl b/lisp/sawfish/wm/commands/x-cycle.jl
index 71afc85..1d6c247 100644
--- a/lisp/sawfish/wm/commands/x-cycle.jl
+++ b/lisp/sawfish/wm/commands/x-cycle.jl
@@ -374,7 +374,8 @@ Any extra arguments are passed to each call to define-command."
       (let ((class (window-class w)))
         (delete-if-not window-in-cycle-p
                        (filter-windows
-                        (lambda (x) (equal (window-class x) class))))))
+                        (lambda (x) (equal (window-class x) class))
+                        (window-order)))))
     #:spec "%W")
 
   (define-cycle-command-pair
diff --git a/man/news.texi b/man/news.texi
index 0308947..bee7da7 100644
--- a/man/news.texi
+++ b/man/news.texi
@@ -332,6 +332,8 @@ in wrong viewports. It is fixed.
 @item Renamed @code{after-add-window} to @code{maxmize-after-add-window} @*
 This function is only used in a hook [Teika Kazura]
 
+ item Don't let @code{cycle-class} and @code{cycle-class-backwards} ignore @var{window-order} [Daniel M. German]
+
 @item Docks/panels are unframed, and window type is set to @code{dock} [Timo Korvola]
 
 @item You can exit from sawfish-client with @code{,quit} (also @code{C-d}), unlike @code{C-c} it won't kill the WM [Teika Kazura, Timo Korvola]