[nongnu] elpa/meow dd46c7a951: Fix meow-keypad-leader-dispatch = nil

[ELPA Syncer]

branch: elpa/meow
commit dd46c7a9513a55b1b0692e321aa2a943e981f9a9
Author: DogLooksGood <doglooksgood@hotmail.com>
Commit: DogLooksGood <doglooksgood@hotmail.com>

    Fix meow-keypad-leader-dispatch = nil
---
 meow-core.el   | 1 -
 meow-keypad.el | 8 +++-----
 meow-var.el    | 1 -
 3 files changed, 3 insertions(+), 7 deletions(-)

diff --git a/meow-core.el b/meow-core.el
index 3fd662a417..e3563e5a65 100644
--- a/meow-core.el
+++ b/meow-core.el
@@ -72,7 +72,6 @@
   (when meow-keypad-mode
     (setq meow--prefix-arg current-prefix-arg
           meow--keypad-keymap-description-activated nil
-          meow--keypad-allow-quick-dispatch t
           meow--keypad-base-keymap nil
           meow--use-literal nil
           meow--use-meta nil
diff --git a/meow-keypad.el b/meow-keypad.el
index e0670bac52..491d33c9e5 100644
--- a/meow-keypad.el
+++ b/meow-keypad.el
@@ -414,7 +414,7 @@ try replacing the last modifier and try again."
               meow--use-meta
               meow--use-both)
     (let* ((key-str (meow--keypad-format-keys nil))
-           (cmd (key-binding (kbd key-str))))
+           (cmd (meow--keypad-lookup-key (kbd key-str))))
       (cond
        ((commandp cmd t)
         (setq current-prefix-arg meow--prefix-arg
@@ -491,13 +491,11 @@ Return t if handling is completed."
         (push (cons 'control (meow--parse-input-event
                               (alist-get input-event meow-keypad-start-keys)))
               meow--keypad-keys))
-       (meow--keypad-allow-quick-dispatch
+       (t
         (if-let* ((keymap (meow--get-leader-keymap)))
             (setq meow--keypad-base-keymap keymap)
           (setq meow--keypad-keys (meow--parse-string-to-keypad-keys 
meow-keypad-leader-dispatch)))
-        (push (cons 'literal key) meow--keypad-keys))
-       (t
-        (push (cons 'control key) meow--keypad-keys))))
+        (push (cons 'literal key) meow--keypad-keys))))
 
     ;; Try execute if the input is valid.
     (if (or meow--use-literal
diff --git a/meow-var.el b/meow-var.el
index e7047daf50..1533af3334 100644
--- a/meow-var.el
+++ b/meow-var.el
@@ -374,7 +374,6 @@ Use (setq meow-keypad-describe-keymap-function \\='nil) to 
disable popup.")
 
 (defvar meow--keypad-keys nil)
 (defvar meow--keypad-previous-state nil)
-(defvar meow--keypad-allow-quick-dispatch nil)
 
 (defvar meow--prefix-arg nil)
 (defvar meow--use-literal nil)