fixed refocusing of the last focused client (add-last-focused-client!)

2003-12-11 00:04:00 +00:00 · 2003-12-11 00:04:00 +00:00 · f998ae533e
parent ac9cce3473
commit f998ae533e
1 changed files with 4 additions and 2 deletions
--- 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))