Add key-to-key binding support to map!

Experimental, and will eventually be replaced by general-simulate-key.
2018-09-18 15:07:21 -04:00 · 2018-09-18 15:07:21 -04:00 · 895df84f8b
commit 895df84f8b
parent 80e8ccec1c
1 changed files with 10 additions and 0 deletions
--- a/core/core-keybinds.el
+++ b/core/core-keybinds.el
@ -245,6 +245,16 @@ Example
              (unless (> (length rest) 0)
                (user-error "map! has no definition for %s key" key))
              (setq def (pop rest))
+              (when (or (vectorp def)
+                        (stringp def))
+                (setq def
+                      `(lambda () (interactive)
+                         (setq unread-command-events
+                               (nconc (mapcar (lambda (ev) (cons t ev))
+                                              (listify-key-sequence
+                                               ,(cond ((vectorp def) def)
+                                                      ((stringp def) (kbd def)))))
+                                      unread-command-events)))))
              (when desc
                (push `(doom--keybind-register ,(key-description (eval key))
                                               ,desc ',modes)