Prevent crash because of KKP fix

This commit is contained in:
Alexander Rosenberg 2024-05-15 16:23:16 -07:00
parent 56d120af7e
commit 9ef524841d
Signed by: Zander671
GPG Key ID: 5FD0394ADBD72730

View File

@ -206,9 +206,10 @@ Interactively, force the recompile if called with a prefix."
(let ((status (kkp--terminal-has-active-kkp-p)))
(unwind-protect
(progn
(when status (kkp--suspend-in-terminal))
(when status (kkp--terminal-teardown (kkp--selected-terminal)))
(funcall oldfun arg pred))
(when status (kkp--resume-in-terminal)))))
(when (and status (not (kkp--terminal-has-active-kkp-p)))
(kkp--terminal-setup)))))
(advice-add #'save-some-buffers :around
#'my/-kkp-fix-save-some-buffers))