From cf98e3d921ea55bcd58f0b7b3071d84a9a8fbcd0 Mon Sep 17 00:00:00 2001
From: Adrián Medraño Calvo <adrian@medranocalvo.com>
Date: Tue, 6 Mar 2018 00:00:00 +0000
Subject: Name all helper windows created by EXWM

* exwm-workspace.el (exwm-workspace--add-frame-as-workspace)
(exwm-workspace--init):
* exwm-input.el (exwm-input--init):
* exwm-floating.el (exwm-floating--set-floating): Name created
helper windows with prefix "EXWM".
---
 exwm-input.el | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'exwm-input.el')

diff --git a/exwm-input.el b/exwm-input.el
index d194b53821b4..0c8853c5f338 100644
--- a/exwm-input.el
+++ b/exwm-input.el
@@ -927,6 +927,10 @@ where both ORIGINAL-KEY and SIMULATED-KEY are key sequences."
                      :visual 0
                      :value-mask xcb:CW:EventMask
                      :event-mask xcb:EventMask:PropertyChange))
+  (xcb:+request exwm--connection
+      (make-instance 'xcb:ewmh:set-_NET_WM_NAME
+                     :window exwm-input--timestamp-window
+                     :data "EXWM: exwm-input--timestamp-window"))
   (let ((atom "_TIME"))
     (setq exwm-input--timestamp-atom
           (slot-value (xcb:+request-unchecked+reply exwm--connection
-- 
cgit 1.4.1