branch: elpa/meow
commit a7edff29d01195580c8ef723c2ab374b19552a5e
Author: DogLooksGood <doglooksg...@gmail.com>
Commit: DogLooksGood <doglooksg...@gmail.com>
Fix a lookup-key usage
---
meow-keypad.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/meow-keypad.el b/meow-keypad.el
index f3ebc97131..c52dfa7c55 100644
--- a/meow-keypad.el
+++ b/meow-keypad.el
@@ -445,7 +445,9 @@ x f' to execute `C-x C-f' or `C-x f' when `C-x C-f' is not
bound."
(origin-cmd (cl-some (lambda (m)
(when (and (not (eq m
meow-normal-state-keymap))
(not (eq m
meow-motion-state-keymap)))
- (lookup-key m key)))
+ (let ((cmd (lookup-key m (kbd key))))
+ (when (commandp cmd)
+ cmd))))
(current-active-maps)))
(remapped-cmd (command-remapping origin-cmd))
(cmd-to-call (if (member remapped-cmd '(undefined nil))
