On Tue, 2010-12-21 at 20:28 +0100, Harald van Dijk wrote:
> I will prepare a patch to only set _NET_ACTIVE_WINDOW for 'normal focus
> events later.
And here it is, also updated on the wiki.
Cheers,
Harald
--- a/lisp/sawfish/wm/state/wm-spec.jl
+++ b/lisp/sawfish/wm/state/wm-spec.jl
@@ -264,9 +264,9 @@
(define last-focus nil)
- (define (update-focus-state)
+ (define (update-focus-state w mode)
(let ((focus (input-focus)))
- (unless (eq last-focus focus)
+ (when (and (eq mode 'normal) (not (eq last-focus focus)))
(setq last-focus focus)
(set-x-property 'root '_NET_ACTIVE_WINDOW
(vector (if focus (window-id focus) 0)) 'WINDOW 32))))
