From 895df84f8b7425d976e1c5d88fe3888af1bdb186 Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Tue, 18 Sep 2018 15:07:21 -0400
Subject: [PATCH] Add key-to-key binding support to map!

Experimental, and will eventually be replaced by general-simulate-key.
---
 core/core-keybinds.el | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/core/core-keybinds.el b/core/core-keybinds.el
index e63c780f0..2e5cb97f3 100644
--- 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)