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

Question

我喜欢Emacs的paredit-mode，但是在eval-expression（M-:）时我非常怀念它。在eval-expression进行{{1}}时，如何才能在迷你缓冲区中使用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)