Re: todo for edge-actions 1.9 [was: Re: mxflat theme broken with current git]

[Christopher Roy Bratusek <nano tuxfamily org>]

> > > Great you're working on it. It's still edge-actions-1.9 (the branch is
> > > not yet done).
> > Well, here's *a* fix, though I don't know if it's the best one, or if
> > it's complete:
> >
> > diff --git a/lisp/sawfish/wm/edge/flip.jl b/lisp/sawfish/wm/edge/flip.jl
> > index 11f1fec..026a46e 100644
> > --- a/lisp/sawfish/wm/edge/flip.jl
> > +++ b/lisp/sawfish/wm/edge/flip.jl
> > @@ -36,11 +36,16 @@
> >
> >     (define-structure-alias edge-flip sawfish.wm.edge.flip)
> >
> > +  (define edge-flip-timer nil)
> > +
> >     (define (edge-flip-invoke edge type #!key while-moving)
> > -    (make-timer (lambda ()
> > -                 (flip-core edge type #:while-moving while-moving))
> > -               (quotient edge-flip-delay 1000)
> > -               (mod edge-flip-delay 1000)))
> > +    (unless edge-flip-timer
> > +      (setq edge-flip-timer
> > +            (make-timer (lambda ()
> > +                          (setq edge-flip-timer nil)
> > +                          (flip-core edge type #:while-moving 
> > while-moving))
> > +                        (quotient edge-flip-delay 1000)
> > +                        (mod edge-flip-delay 1000)))))
> >
> >     (define steps nil)

For your information: fixed in all three (EF/HS/HM) in edge-actions-1.9 
branch.
In my tests it didn't happen with VD, so it should be fine.

Chris