在Emacs中如何阻止org-babel-detangle更改框架/窗口/缓冲区配置？

问题场景 #

• 需求：执行org-babel-detangle时，当前Frame、窗口、缓冲区的配置完全保留，焦点维持在原位
• 实际问题：执行后会在当前标签栏新增源.org文件的缓冲区，同时生成新Frame并获取焦点
• 已尝试的无效/不完善方案：
  1. 全局配置display-buffer-alist '((".*" (display-buffer-no-window)))，但被Org的局部规则覆盖，无效果
  2. 用save-window-excursion和自定义save-frame-excursion包裹原函数，虽能恢复焦点，但新缓冲区和Frame仍会残留

可行解决方案 #

方案1：精准配置display-buffer-alist #

针对Org生成的源缓冲区做规则匹配，避免全局配置被覆盖：

(add-to-list 'display-buffer-alist
             '("\\*Org Src.*\\*" ; 匹配org-babel-detangle生成的临时源缓冲区
               (display-buffer-no-window) ; 只在后台创建缓冲区，不显示窗口
               (reusable-frames . nil))) ; 禁止复用现有Frame，也不新建Frame

方案2：改进Advice，自动清理残留缓冲区 #

在原恢复焦点的逻辑上，新增缓冲区清理步骤，确保执行后不留多余窗口和缓冲区：

(defmacro save-frame-excursion (&rest body)
  "执行BODY代码后，自动切回当前选中的Frame"
  (let ((frame-var (gensym "FRAME")))
    `(let ((,frame-var (selected-frame)))
       (unwind-protect
           (progn ,@body)
         (select-frame-set-input-focus ,frame-var)))))

(defun org-babel-detangle-quiet-run (orig-fun &rest args)
  ;; 记录执行前的缓冲区列表
  (let ((pre-buffers (buffer-list)))
    (save-window-excursion
      (save-frame-excursion
        (apply orig-fun args)))
    ;; 关闭所有执行后新增的临时缓冲区
    (dolist (buf (buffer-list))
      (unless (member buf pre-buffers)
        (when (string-match-p "\\*Org Src.*\\*" (buffer-name buf))
          (kill-buffer buf))))))
(advice-add 'org-babel-detangle :around #'org-babel-detangle-quiet-run)

方案3：结合两种方案（推荐） #

既用display-buffer-alist从根源阻止窗口弹出，又用Advice确保焦点和配置完全恢复：

;; 第一步：配置缓冲区显示规则
(add-to-list 'display-buffer-alist
             '("\\*Org Src.*\\*"
               (display-buffer-no-window)
               (reusable-frames . nil)))

;; 第二步：添加焦点恢复的Advice
(defmacro save-frame-excursion (&rest body)
  "执行BODY后切回原选中的Frame"
  (let ((frame-var (gensym "FRAME")))
    `(let ((,frame-var (selected-frame)))
       (unwind-protect
           (progn ,@body)
         (select-frame-set-input-focus ,frame-var)))))

(defun org-babel-detangle-no-disturb (orig-fun &rest args)
  (save-window-excursion
    (save-frame-excursion
      ;; 可选：抑制detangle过程中的消息输出
      (let ((inhibit-message t))
        (apply orig-fun args)))))
(advice-add 'org-babel-detangle :around #'org-babel-detangle-no-disturb)

注意事项 #

• 如果自定义了Org相关的缓冲区命名规则，需要调整"\\*Org Src.*\\*"的匹配正则，确保精准匹配detangle生成的临时缓冲区
• inhibit-message t是可选配置，若需要看detangle的执行日志可以去掉

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