scsh-conservatory
/
orion-wm
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

This commit is contained in:
frese 2003-12-11 00:04:00 +00:00
parent ac9cce3473
commit f998ae533e
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/switch-wm.scm
View File

@ -32,8 +32,10 @@
(define (add-last-focused-client! wm data client) (define (add-last-focused-client! wm data client)
(let ((p (data:last-focused data))) (let ((p (data:last-focused data)))
(set-cdr! p (car p)) (if (not (eq? client (car p)))
(set-car! p client))) (begin
(set-cdr! p (car p))
(set-car! p client)))))
(define (init-switch-wm wm channel) (define (init-switch-wm wm channel)
(let* ((dpy (wm:dpy wm)) (let* ((dpy (wm:dpy wm))