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

Question

我喜欢Emacs的paredit模式，但在做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

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

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