执行 eval-expression 时如何获得 paredit 模式？

Question

我喜欢 Emacs 的 paredit-mode，但在执行 eval-expression (M-:) 时我非常想念它。在执行eval-expression时，如何在迷你缓冲区中进行paredit？谢谢！

Answer 1

向 minibuffer-setup-hook 添加一个函数，如下所示：

(add-hook 'minibuffer-setup-hook 'conditionally-enable-paredit-mode)
(defun conditionally-enable-paredit-mode ()
  "enable paredit-mode during eval-expression"
  (if (eq this-command 'eval-expression)
      (paredit-mode 1)))

Answer 2

将函数 paredit-mode 添加到 eval-expression-minibuffer-setup-hook，如下所示

(add-hook 'eval-expression-minibuffer-setup-hook #'paredit-mode)