>From 84fb71460583ff96a9851b05e693a92df785661e Mon Sep 17 00:00:00 2001 From: Ben Spencer Date: Sun, 13 Nov 2011 13:20:02 +0000 Subject: [PATCH] Make *root-click-hook* work. --- events.lisp | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) diff --git a/events.lisp b/events.lisp index 2ca50fd..3f659c4 100644 --- a/events.lisp +++ b/events.lisp @@ -591,7 +591,8 @@ the window in it's frame." (let (screen ml win) (cond ((and (setf screen (find-screen window)) (not child)) - (group-button-press (screen-current-group screen) x y :root)) + (group-button-press (screen-current-group screen) x y :root) + (run-hook-with-args *root-click-hook* screen code x y)) ((setf ml (find-mode-line-window window)) (run-hook-with-args *mode-line-click-hook* ml code x y)) ((setf win (find-window-by-parent window (top-windows))) -- 1.7.7.1