From f998ae533e2d9ccaa082063fa855aec4cd313a2d Mon Sep 17 00:00:00 2001 From: frese Date: Thu, 11 Dec 2003 00:04:00 +0000 Subject: [PATCH] fixed refocusing of the last focused client (add-last-focused-client!) --- src/switch-wm.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/switch-wm.scm b/src/switch-wm.scm index 46260ac..dc08cda 100644 --- a/src/switch-wm.scm +++ b/src/switch-wm.scm @@ -32,8 +32,10 @@ (define (add-last-focused-client! wm data client) (let ((p (data:last-focused data))) - (set-cdr! p (car p)) - (set-car! p client))) + (if (not (eq? client (car p))) + (begin + (set-cdr! p (car p)) + (set-car! p client))))) (define (init-switch-wm wm channel) (let* ((dpy (wm:dpy wm))