Fix the warning on (kbd "ESC")

meow-edit · Dec 1, 2024 · 5c18500 · 5c18500
1 parent 024f8e9
commit 5c18500
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/meow-keymap.el b/meow-keymap.el
@@ -82,7 +82,6 @@
     (define-key map (kbd "DEL") 'meow-keypad-undo)
     (define-key map (kbd "<backspace>") 'meow-keypad-undo)
     (define-key map (kbd "<escape>") 'meow-keypad-quit)
-    (define-key map "" 'meow-keypad-quit)
     (define-key map [remap keyboard-quit] 'meow-keypad-quit)
     map)
   "Keymap for Meow keypad state.")

diff --git a/meow-keypad.el b/meow-keypad.el
@@ -444,7 +444,9 @@ try replacing the last modifier and try again."
 
 (defun meow--keypad-handle-input-with-keymap (input-event)
   "Handle INPUT-EVENT with `meow-keypad-state-keymap'."
-  (let* ((k (kbd (single-key-description input-event)))
+  (let* ((k (if (= 27 input-event)
+                [escape]
+              (kbd (single-key-description input-event))))
          (cmd (lookup-key meow-keypad-state-keymap k)))
     (if cmd
         (call-interactively cmd)