1つの回避策は、関連する機能にアドバイスすることです。たとえば、:after
のアドバイスを org-src-font-lock-fontify-block
に追加すると、
(defun kill-org-src-buffers (&rest args)
"Kill temporary buffers created by
org-src-font-lock-fontify-block so they don't interfere with
magit-mode."
(dolist (b (buffer-list))
(let ((bufname (buffer-name b)))
(if (string-prefix-p " org-src-fontification:" bufname)
(kill-buffer b)))))
(advice-add 'org-src-font-lock-fontify-block
:after #'kill-org-src-buffers)
kill-org-src-buffers
はすべてのバッファを反復処理し、 org-src-font-lock-fontify-block
「一時的な」バッファー。あるいは、同様のアプローチをとる:before
のアドバイスで magit-save-repository-buffers
に助言を与えることも可能でしょう。
私は org-src-font-lock-fontify-block
が get-buffer-create
を使って一時的なものだけを必要とする作業を行うバッファを作成するバグだと思いますバッファ;代わりに with-temp-buffer
を使用する必要があります。