Question

我正在尝试从我的elisp函数中获得动态提示。我想要一些像replace-regexp这样的东西，它会显示你输入的最后一个正则表达式。我试过了（互动（concat“sab”“bab”）））那不起作用！

我也尝试过格式化的消息（交互式“s％s”last-used-regexp）

这不起作用！有谁知道怎么做？

谢谢！

Answer 1

M-x find-function是你的朋友。它将通过向您显示源代码来告诉您emacs中的任何内容。使用它，我发现query-regexp-replace调用query-replace-read-args调用query-replace-read-from，调用read-from-minibuffer使用从上次使用的regexp创建的提示调用query-replace-defaults，该提示保存在点对(defun my-func () "Do stuff..." (interactive) (read-from-minibuffer "Regexp? " (first query-replace-defaults)))中{{1}} 1}}。

所以：

{{1}}

是一个命令，它以最后输入的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。您当然可以按向上/向下箭头在提示符下查看历史记录。

Emacs Elisp动态交互式提示

2 个答案: