emacs - 为需要迷你缓冲区的函数赋值

Question

假设我有一个函数 (foo) 定义为 (defun foo () (read-from-minibuffer "What? "))。我无法更改定义，但我想将其包装在宏或另一个函数中，以避免必须手动给出任何值。

不幸的是，以下解决方案不起作用，因为 (exit-minibuffer) 仅在离开迷你缓冲区后才会被调用，所以我想知道您是否知道一些事情。

(defmacro return-an-empty-string (&rest code) `(progn ,@code (exit-minibuffer)))(defun return-an-empty-string (function) (funcall function) (exit-minibuffer))

谢谢!

Answer 1

您可以暂时将 read-from-minibuffer 设为不执行任何操作的函数:

(require 'cl)
(defmacro preempt-minibuffer (&rest body)
  `(flet ((read-from-minibuffer (&rest ignore)))
     ,@body))