[nongnu] elpa/meow f6a1b48eb5: Fix keypad popup, respect the binding priority

[ELPA Syncer]

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

    Fix keypad popup, respect the binding priority
---
 meow-keypad.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/meow-keypad.el b/meow-keypad.el
index 691aef6d53..9ba0627a67 100644
--- a/meow-keypad.el
+++ b/meow-keypad.el
@@ -206,14 +206,18 @@
              (lambda (key def)
                (unless (member 'control (event-modifiers key))
                  (unless (member key ignores)
-                   (define-key km (vector (meow--get-event-key key)) (funcall 
meow-keypad-get-title-function def)))))
+                   (let ((k (vector (meow--get-event-key key))))
+                     (unless (lookup-key km k)
+                       (define-key km (vector (meow--get-event-key key)) 
(funcall meow-keypad-get-title-function def)))))))
              keymap)
             (map-keymap
              (lambda (key def)
                (when (member 'control (event-modifiers key))
                  (unless (member (meow--event-key key) ignores)
                    (when def
-                     (define-key km (vector (meow--get-event-key key)) 
(funcall meow-keypad-get-title-function def))))))
+                     (let ((k (vector (meow--get-event-key key))))
+                       (unless (lookup-key km k)
+                         (define-key km k (funcall 
meow-keypad-get-title-function def))))))))
              keymap)
             km)))))))