From 3c8b39505825eff7e2b61e09833374d904926724 Mon Sep 17 00:00:00 2001 From: Chris Feng Date: Sun, 13 Oct 2019 00:00:00 +0000 Subject: [PATCH] Fix `exwm-input-set-simulation-key' * exwm-input.el (exwm-input--read-keys): Return nil on empty input so that `exwm-input-set-simulation-key' can ignore it. (exwm-input-set-simulation-key): Improve prompt. --- exwm-input.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/exwm-input.el b/exwm-input.el index e648219..34fe222 100644 --- a/exwm-input.el +++ b/exwm-input.el @@ -976,7 +976,8 @@ Notes: (key-description (vector stop-key)) (key-description keys))) keys (vconcat keys (vector key)))) - (substring keys 0 -1))) + (when (> (length keys) 1) + (substring keys 0 -1)))) ;;;###autoload (defun exwm-input-set-simulation-key (original-key simulated-key) @@ -987,10 +988,11 @@ ends unless it's specifically saved in the Customize interface for `exwm-input-simulation-keys'." (interactive (let (original simulated) - (setq original (exwm-input--read-keys "Original keys" ?\C-g)) + (setq original (exwm-input--read-keys "Translate from" ?\C-g)) (when original (setq simulated (exwm-input--read-keys - (format "Simulate %s as" (key-description original)) + (format "Translate from %s to" + (key-description original)) ?\C-g))) (list original simulated))) (exwm--log "original: %s, simulated: %s" original-key simulated-key)