Fix keypad popup, respect the binding priority

meow-edit · May 12, 2023 · f6a1b48 · f6a1b48
1 parent 07ccf11
commit f6a1b48
Showing 1 changed file with 6 additions and 2 deletions.
diff --git 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)))))))