From 84f0f0328b173af82c873e395353bd9a6c3bf1f6 Mon Sep 17 00:00:00 2001
From: Chris Feng <chris.w.feng@gmail.com>
Date: Fri, 7 Aug 2015 20:22:12 +0800
Subject: Fix input focus lost after closing window

Also insert some debug messages.
---
 exwm-manage.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'exwm-manage.el')

diff --git a/exwm-manage.el b/exwm-manage.el
index 0d2c74f4f16f..7c82696fb7f2 100644
--- a/exwm-manage.el
+++ b/exwm-manage.el
@@ -178,8 +178,10 @@ corresponding buffer.")
                              :window id :property xcb:Atom:WM_STATE))
           (xcb:flush exwm--connection))
         (setq kill-buffer-query-functions nil)
-        (kill-buffer)
-        (select-frame-set-input-focus exwm-workspace--current)))))
+        (let ((floating exwm--floating-frame))
+          (kill-buffer)
+          (when floating
+            (select-frame-set-input-focus exwm-workspace--current)))))))
 
 (defun exwm-manage--scan ()
   "Search for existing windows and try to manage them."
-- 
cgit 1.4.1