diff options
| -rw-r--r-- | exwm-input.el | 6 |
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 () |