Christopher Roy Bratusek writes:
> Am Mon, 30 Nov 2009 21:11:47 -0800 schrieb [email protected]:
> > I have found that the following suits my purposes:
> >
> > (require 'sawfish.wm.focus)
> > (define (focus-enter-refocus-fun w mode)
> > (focus-revert))
> > (add-hook 'enter-notify-hook focus-enter-refocus-fun t)
>
> Indeed. Thanks for catching this one. This should go in, but perhaps
> there's a "better" way, than just hooking focus-revert (which should be
> already called by the focus-mode) -- Timo?
Actually, that doesn't work with the way cycle-windows-and-warp
is implemented. This version is better:
(define (focus-enter-refocus-fun w mode)
(when (eq mode 'ungrab)
(focus-revert)))
Derek
--
Derek Upham
[email protected]
