about summary refs log tree commit diff
path: root/exwm-input.el
diff options
context:
space:
mode:
Diffstat (limited to 'exwm-input.el')
-rw-r--r--exwm-input.el6
1 files changed, 5 insertions, 1 deletions
diff --git a/exwm-input.el b/exwm-input.el
index c8cf01817cfd..7833130d7811 100644
--- a/exwm-input.el
+++ b/exwm-input.el
@@ -960,6 +960,10 @@ Notes:
          (set symbol value)
          (exwm-input--set-simulation-keys value)))
 
+(defcustom exwm-input-pre-post-command-blacklist '(exit-minibuffer)
+  "Commands impossible to detect with `post-command-hook'."
+  :type '(repeat function))
+
 (cl-defun exwm-input--read-keys (prompt stop-key)
   (let ((cursor-in-echo-area t)
         keys key)
@@ -1029,7 +1033,7 @@ where both ORIGINAL-KEY and SIMULATED-KEY are key sequences."
 
 (defun exwm-input--on-pre-command ()
   "Run in `pre-command-hook'."
-  (unless (eq this-command #'exit-minibuffer)
+  (unless (memq this-command exwm-input-pre-post-command-blacklist)
     (setq exwm-input--during-command t)))
 
 (defun exwm-input--on-post-command ()