From 2497c45a1d965cae92af49e4fad0cc84415109f6 Mon Sep 17 00:00:00 2001 From: Chris Feng Date: Thu, 22 Sep 2016 19:02:54 +0800 Subject: [PATCH] ; Remove dead code --- exwm-input.el | 24 +++++++++++------------- 1 file changed, 11 insertions(+), 13 deletions(-) diff --git a/exwm-input.el b/exwm-input.el index 61858e9..dd65b6e 100644 --- a/exwm-input.el +++ b/exwm-input.el @@ -121,20 +121,18 @@ ARGS are additional arguments to CALLBACK." (cdr exwm-input--timestamp-callback)) (setq exwm-input--timestamp-callback nil))))) -(defun exwm-input--on-FocusIn (data _synthetic) +(defun exwm-input--on-FocusIn (&rest _args) "Handle FocusIn events." - (let ((obj (make-instance 'xcb:FocusIn))) - (xcb:unmarshal obj data) - ;; Not sure if this is the right thing to do but the point is the - ;; input focus should not stay at the root window or any container, - ;; or the result would be unpredictable. `x-focus-frame' would - ;; first set the input focus to the (previously) selected frame, and - ;; then `select-window' would further update the input focus if the - ;; selected window is displaying an `exwm-mode' buffer. Perhaps we - ;; should carefully filter out FocusIn events with certain 'detail' - ;; and 'mode' combinations, but this just works. - (x-focus-frame (selected-frame)) - (select-window (selected-window)))) + ;; Not sure if this is the right thing to do but the point is the + ;; input focus should not stay at the root window or any container, + ;; or the result would be unpredictable. `x-focus-frame' would + ;; first set the input focus to the (previously) selected frame, and + ;; then `select-window' would further update the input focus if the + ;; selected window is displaying an `exwm-mode' buffer. Perhaps we + ;; should carefully filter out FocusIn events with certain 'detail' + ;; and 'mode' combinations, but this just works. + (x-focus-frame (selected-frame)) + (select-window (selected-window))) (defun exwm-input--on-workspace-list-change () "Run in `exwm-input--update-global-prefix-keys'."