1 files changed, 16 insertions, 18 deletions
diff --git a/emacs/.config/emacs-kj/lisp/kj-multiple-cursors.el b/emacs/.config/emacs-kj/lisp/kj-multiple-cursors.el
index 5c80ccf..b841d9f 100644
--- a/emacs/.config/emacs-kj/lisp/kj-multiple-cursors.el
+++ b/emacs/.config/emacs-kj/lisp/kj-multiple-cursors.el
@@ -2,24 +2,22 @@
 
 (use-package multiple-cursors
   :config
-  (defvar kj/multiple-cursors-map (make-sparse-keymap "cursors"))
-  (define-key kj/multiple-cursors-map "." '("→ this" . mc/mark-next-like-this))
-  (define-key kj/multiple-cursors-map "," '("← this" . mc/mark-previous-like-this))
-  (define-key kj/multiple-cursors-map ">" '("⇥ this" . mc/skip-to-next-like-this))
-  (define-key kj/multiple-cursors-map "<" '("⇤ this" . mc/skip-to-previous-like-this))
-  (define-key kj/multiple-cursors-map "<" '("⇤ this" . mc/skip-to-previous-like-this))
-  (define-key kj/multiple-cursors-map "*" '("all like this" . mc/mark-all-like-this))
-  (define-key kj/multiple-cursors-map "w" '("word" . mc/mark-next-like-this-word))
-  (define-key kj/multiple-cursors-map "s" '("symbol" . mc/mark-next-like-this-symbol))
-  (define-key kj/multiple-cursors-map "(" '("symbol defun" . mc/mark-all-symbols-like-this-in-defun))
-  (define-key kj/multiple-cursors-map (kbd "DEL") '("DEL last" . mc/unmark-next-like-this))
-  (define-key kj/multiple-cursors-map (kbd "<delete>") '("DEL first" . mc/unmark-previous-like-this))
-  (global-set-key (kbd "C-c m") (cons "cursors" kj/multiple-cursors-map))
-
-  (map-keymap
-   (lambda (_key cmd)
-     (put (cdr  cmd) 'repeat-map 'kj/multiple-cursors-map))
-   kj/multiple-cursors-map))
+  (defvar kj/multiple-cursors-map
+    (let ((map (make-sparse-keymap "cursors")))
+      (define-repeating-key map "." mc/mark-next-like-this "→ this")
+      (define-repeating-key map "," mc/mark-previous-like-this "← this")
+      (define-repeating-key map ">" mc/skip-to-next-like-this "⇥ this")
+      (define-repeating-key map "<" mc/skip-to-previous-like-this "⇤ this")
+      (define-repeating-key map "<" mc/skip-to-previous-like-this "⇤ this")
+      (define-repeating-key map "*" mc/mark-all-like-this "all like this")
+      (define-repeating-key map "w" mc/mark-next-like-this-word "word")
+      (define-repeating-key map "s" mc/mark-next-like-this-symbol "symbol")
+      (define-repeating-key map "(" mc/mark-all-symbols-like-this-in-defun "symbol defun")
+      (define-repeating-key map (kbd "DEL") mc/unmark-next-like-this "DEL last")
+      (define-repeating-key map (kbd "<delete>") mc/unmark-previous-like-this "DEL first")
+      (define-key map (kbd "C-g") '("quit" . ignore))
+      map))
+  (global-set-key (kbd "C-c m") (cons "cursors" kj/multiple-cursors-map)))
 
 (provide 'kj-multiple-cursors)