From 50681727e3310d6f23e9f06dab83be5eb1f99763 Mon Sep 17 00:00:00 2001
From: Daniel Mendler <mail@daniel-mendler.de>
Date: Fri, 29 Dec 2023 15:38:33 +0100
Subject: [PATCH] Add message-box and message-or-box to exwm-blocking-subrs
 (fix #874)

* exwm.el (exwm-blocking-subrs): Add `message-box' and
`message-or-box' to the list of blocking subrs.
---
 exwm.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/exwm.el b/exwm.el
index 5745533..b8b9c2e 100644
--- a/exwm.el
+++ b/exwm.el
@@ -97,7 +97,9 @@
   "Normal hook run when window title is updated."
   :type 'hook)
 
-(defcustom exwm-blocking-subrs '(x-file-dialog x-popup-dialog x-select-font)
+(defcustom exwm-blocking-subrs
+  (list #'x-file-dialog #'x-popup-dialog #'x-select-font
+        #'message-box #'message-or-box)
   "Subrs (primitives) that would normally block EXWM."
   :type '(repeat function))