From 0e82d8207d00a3d4cfc55a439d9cd01768ad6a90 Mon Sep 17 00:00:00 2001 From: Philippe Brochard Date: Fri, 13 Dec 2013 22:02:08 +0100 Subject: [PATCH] Associate child under mouse to expose-child --- src/clfswm-expose-mode.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/clfswm-expose-mode.lisp b/src/clfswm-expose-mode.lisp index 31fbee1..50f36ef 100644 --- a/src/clfswm-expose-mode.lisp +++ b/src/clfswm-expose-mode.lisp @@ -133,7 +133,8 @@ (defun expose-query-button-press-hook (code state x y) (declare (ignore state)) (when (= code 1) - (setf *expose-selected-child* (find-child-under-mouse x y))) + (setf *expose-selected-child* + (find (find-child-under-mouse x y) *expose-child-list* :test #'child-equal-p :key #'expose-child-child))) (leave-query-mode :click)) -- 2.11.4.GIT