Emacs Elisp动态交互式提示

Question

我试图从我的elisp函数中获得动态提示.我想要一些像replace-regexp这样的东西,它会显示你输入的最后一个正则表达式.我尝试过(交互式(concat"sab""bab")))但不起作用!

我也尝试了像格式的消息(交互式"s%s"last-used-regexp)

这不起作用!有人知道怎么做吗？

谢谢!

Answer 1

M-x find-function是你的朋友.它将通过向您显示源代码来告诉您emacs中的任何内容.使用它,我发现调用使用从最后使用的regexp创建的提示query-regexp-replace调用query-replace-read-args哪些调用query-replace-read-from,read-from-minibuffer该提示保存在虚线对中query-replace-defaults.

所以:

(defun my-func ()
  "Do stuff..."
  (interactive)
  (read-from-minibuffer "Regexp? " (first query-replace-defaults)))

是一个命令,它以最后输入的regexp作为默认值抛出提示.

Answer 2

将变量用于输入历史记录,并使用列表进行交互:

(defvar my-func-history nil)

(defun my-func (str)
  (interactive (list (read-from-minibuffer "Input string: " (car my-func-history) nil nil 'my-func-history)))
  (insert str))

如果您不想在最初输入最后一个值,请更改(car my-func-history)为nil.你当然可以上/下箭头在提示符下浏览历史记录.