[PATCH] cycle-class don't ignore window-order

[Christopher Roy Bratusek <zanghar freenet de>]

Hi all,

small patch extracted from a script by DMG.

Any other cycle-pair that should be improved?

Chris

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