Make evil-read-key-key-map generation more direct

emacs-evil · Nov 6, 2023 · c4f95fd · c4f95fd
1 parent ad80a0a
commit c4f95fd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/evil-common.el b/evil-common.el
@@ -569,7 +569,7 @@ as a command. Its main use is in the `evil-read-key-map'."
   (let ((map (make-sparse-keymap))
         (n ?0))
     (while (<= n ?9)
-      (define-key map (kbd (concat "<kp-" (string n) ">")) nil)
+      (define-key map (vector (intern (concat "kp-" (string n)))) nil)
       (cl-incf n))
     map)
    "By default, used to exclude otherwise disabled fallbacks.")