假设我有一个elisp代码，例如：

(+ 2 3▮(+ 3
          4))

添加或删除符号时，有没有一种方法可以在光标后自动重新缩进sexp？

因此，按之后SPC 4 SPC，我将自动获得：

(+ 2 3 4 ▮(+ 3
             4))

我可以先打，mark-sexp然后再打indent-region。有更好的方法吗？

可以按mark-sexp+ 代替+ 。这会打电话给。不是自动的，但是比必须调用两个命令要好一些。indent-regionC-M-qindent-pp-sexp

或者，如果您正在使用paredit-mode，请按M-q。这将使您所在的整个函数定义缩进。

积极缩进模式

由于有人提出了要求，所以我把这个答案 变成了一个包装。

如果配置了Melpa，则可以使用

M-x package-install RET aggressive-indent

有关所有选项，请参见自述文件，但打开它的最简单方法是：

(add-hook 'emacs-lisp-mode-hook #'aggressive-indent-mode)

旧答案

以下仅在elisp缓冲区上执行自动缩进。它具有在擦除或拖拽内容（而不只是键入内容）时也可以工作的优点。也很容易添加到其他模式。

该函数将缩进该点当前位于其中的任何s表达式。您可以根据需要将其绑定到密钥，但请先参见下文。

(require 'cl-lib)

(defun endless/indent-defun ()
  "Indent current defun.
Do nothing if mark is active (to avoid deactivating it), or if
buffer is not modified (to avoid creating accidental
modifications)."
  (interactive)
  (ignore-errors
    (unless (or (region-active-p)
                buffer-read-only
                (null (buffer-modified-p)))
      (let ((l (save-excursion (beginning-of-defun 1) (point)))
            (r (save-excursion (end-of-defun 1) (point))))
        (cl-letf (((symbol-function 'message) #'ignore))
          (indent-region l r))))))

该挂钩将使您可以在键入任何内容后运行此函数，但只能在elisp缓冲区中运行。这应该使所有内容始终缩进。

(add-hook
 'emacs-lisp-mode-hook
 (lambda ()
   (add-hook 'post-command-hook
             #'endless/indent-defun nil 'local)))

尝试一下！它工作得非常好。

另外，按照@holocronweaver在评论中的建议，您可以对类似c的语言使用类似以下的内容：

(define-key c++-mode-map ";"
  (lambda () (interactive)
    (insert ";")
    (endless/indent-defun)))

我不知道已有的解决方案，但是您可以post-self-insert-hook自己完成此任务：

(defun my-indent-next-sexp ()
  (interactive)
  (mark-sexp)
  (indent-region))

(add-hook 'post-self-insert-hook 'my-indent-next-sexp)

我会担心潜在的性能问题。

您可以尝试el-fly-indent-mode，它比aggressive-indent-mode使用Elisp时表现得更好。