branch: elpa/meow
commit 0314cd1bc661c8900bae5ef65d55f67a9ddc7193
Author: DogLooksGood <[email protected]>
Commit: DogLooksGood <[email protected]>
Fix command lookup in keypad
---
meow-keypad.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/meow-keypad.el b/meow-keypad.el
index cb6e5760c7..f3ebc97131 100644
--- a/meow-keypad.el
+++ b/meow-keypad.el
@@ -443,7 +443,9 @@ x f' to execute `C-x C-f' or `C-x f' when `C-x C-f' is not
bound."
(eq meow--keypad-previous-state
meow-keypad-leader-transparent))
(let* ((key (meow--parse-input-event last-input-event))
(origin-cmd (cl-some (lambda (m)
- (lookup-key m key))
+ (when (and (not (eq m
meow-normal-state-keymap))
+ (not (eq m
meow-motion-state-keymap)))
+ (lookup-key m key)))
(current-active-maps)))
(remapped-cmd (command-remapping origin-cmd))
(cmd-to-call (if (member remapped-cmd '(undefined nil))
