Fix meow--keypad-try-execute (#688)

(commandp cmd) returns t if cmd is an autoloaded keymap.
meow-edit · Dec 4, 2024 · c82a324 · c82a324
1 parent 504fe65
commit c82a324
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/meow-keypad.el b/meow-keypad.el
@@ -416,6 +416,10 @@ try replacing the last modifier and try again."
     (let* ((key-str (meow--keypad-format-keys nil))
            (cmd (meow--keypad-lookup-key (kbd key-str))))
       (cond
+       ((keymapp cmd)
+        (when meow-keypad-message (meow--keypad-show-message))
+        (meow--keypad-display-message)
+        nil)
        ((commandp cmd t)
         (setq current-prefix-arg meow--prefix-arg
               meow--prefix-arg nil)
@@ -430,10 +434,6 @@ try replacing the last modifier and try again."
                   this-command cmd)
             (meow--keypad-execute cmd)
             t)))
-       ((keymapp cmd)
-        (when meow-keypad-message (meow--keypad-show-message))
-        (meow--keypad-display-message)
-        nil)
        ((equal 'control (caar meow--keypad-keys))
         (setcar meow--keypad-keys (cons 'literal (cdar meow--keypad-keys)))
         (meow--keypad-try-execute))