Fix keypad popup, respect the binding priority

Author: DogLooksGood

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