Emacs实现保存前格式化时如何覆盖重写当前缓冲区？

缓冲区全量覆盖的内置实现 #

Emacs 完全提供了无需手动逐行拷贝的内置能力，仅需两步即可完成临时文件到缓冲区的内容回写：

• 用 erase-buffer 清空当前缓冲区的全部原有内容
• 用 insert-file-contents 直接把临时文件的完整内容插入到清空后的缓冲区中

对应你原有代码的注释位置，补全逻辑即可：

(erase-buffer)
(insert-file-contents tempfilename)

原有实现的风格优化 #

你设计的整体流程是通顺的，但有几个实际使用中容易踩坑的点，调整后会更符合 Elisp 编码习惯、稳定性也更高：

• 不要手动拼接 原文件名.tmp 作为临时文件路径。这种写法在多缓冲区编辑同一个文件时会出现临时文件冲突，也容易和项目内的正常文件重名。改用内置函数 make-temp-file 生成唯一安全的临时路径，同时可以把临时文件的后缀名设置成和源文件一致——大部分格式化工具都是靠文件后缀识别代码类型的，缺了后缀很容易格式化失效。
• 拼接 shell 命令时不要直接把文件路径硬塞进字符串。遇到带空格、特殊 shell 字符的文件名时，会直接导致命令执行失败，用 shell-quote-argument 对路径做转义处理。
• 要校验格式化命令的执行退出状态。如果格式化工具因为语法错误、命令缺失执行失败，不要把不完整的临时文件内容覆盖回缓冲区，避免丢失原有代码。
• 执行格式化时优先用 call-process / call-process-shell-command 而不是 shell-command-to-string，前者可以直接拿到命令的退出状态，后者是把 stdout 读成字符串返回，对当前需要修改临时文件的场景并不适配。

优化后的完整实现 #

(defun my-format-before-save ()
  (interactive)
  (let* ((source-suffix (when buffer-file-name
                           (file-name-extension buffer-file-name t)))
         ;; 生成带匹配后缀的唯一临时文件
         (tempfile (make-temp-file "emacs-format-tmp-" nil source-suffix)))
    (unwind-protect
        (progn
          ;; 将当前缓冲区内容无提示写入临时文件
          (write-region (point-min) (point-max) tempfile nil 'silent)
          (let* ((quoted-temp (shell-quote-argument tempfile))
                 (format-exit-code (call-process-shell-command
                                    (format "some-format %s" quoted-temp))))
            ;; 仅当格式化命令执行成功时才回写缓冲区
            (when (zerop format-exit-code)
              (erase-buffer)
              (insert-file-contents tempfile))))
      ;; 无论流程成功或失败，都清理临时文件
      (delete-file tempfile))))

更精简的可选方案 #

如果你的格式化工具支持从标准输入读取代码、将格式化结果输出到标准输出，完全可以省略临时文件的环节，直接用 Emacs 内置的 shell-command-on-region 一步完成内容替换，没有临时文件相关的冲突和清理问题：

;; 选中全缓冲区内容，传给格式化命令，用命令输出直接替换选中区域
(shell-command-on-region (point-min) (point-max) "some-format" t)

内容的提问来源于stack exchange，提问作者ccQpein