将文本插入活动的迷你缓冲区

Inserting Text into an Active Minibuffer

我正在尝试在 运行 外部命令后将文本插入迷你缓冲区。 E.G

(call-interactively 'eval-expression)
(insert "blah")

问题当然是 eval-expression 在用户输入之前不会 return。我的最终目标是将一些默认的 editable 文本添加到任意命令(即 'default string' 或模板)的迷你缓冲区提示中。我怎样才能做到这一点?

使用minibuffer-setup-hook:

(defun foo () (insert "ABCDE"))

(add-hook 'minibuffer-setup-hook 'foo)