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.

1 files changed, 5 insertions, 3 deletions

diff --git a/exwm-input.el b/exwm-input.el
index e648219388..34fe2221b7 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)