Prevent crash because of KKP fix
This commit is contained in:
parent
56d120af7e
commit
9ef524841d
5
init.el
5
init.el
@ -206,9 +206,10 @@ Interactively, force the recompile if called with a prefix."
|
|||||||
(let ((status (kkp--terminal-has-active-kkp-p)))
|
(let ((status (kkp--terminal-has-active-kkp-p)))
|
||||||
(unwind-protect
|
(unwind-protect
|
||||||
(progn
|
(progn
|
||||||
(when status (kkp--suspend-in-terminal))
|
(when status (kkp--terminal-teardown (kkp--selected-terminal)))
|
||||||
(funcall oldfun arg pred))
|
(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
|
(advice-add #'save-some-buffers :around
|
||||||
#'my/-kkp-fix-save-some-buffers))
|
#'my/-kkp-fix-save-some-buffers))
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user