Permalink
Browse files

Make *root-click-hook* work.

  • Loading branch information...
1 parent d8f75d5 commit 84fb71460583ff96a9851b05e693a92df785661e @dangerousben committed Nov 13, 2011
Showing with 2 additions and 1 deletion.
  1. +2 −1 events.lisp
View
@@ -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)))

0 comments on commit 84fb714

Please sign in to comment.