From 9ef524841d2b62df40c264fb08607d969d113efc Mon Sep 17 00:00:00 2001 From: Alexander Rosenberg Date: Wed, 15 May 2024 16:23:16 -0700 Subject: [PATCH] Prevent crash because of KKP fix --- init.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/init.el b/init.el index 662a29a..d9e7609 100644 --- a/init.el +++ b/init.el @@ -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))