Fix a lookup-key usage

Author: DogLooksGood

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))