emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/geiser-kawa df35e6b 099/119: Add unwind-protect in geiser-


From: Philip Kaludercic
Subject: [nongnu] elpa/geiser-kawa df35e6b 099/119: Add unwind-protect in geiser-kawa-deps--run-kawa-unadviced
Date: Sun, 1 Aug 2021 18:30:46 -0400 (EDT)

branch: elpa/geiser-kawa
commit df35e6b124e9e16c3fdc1b8d24bd3f921cc2ecb7
Author: spellcard199 <spellcard199@protonmail.com>
Commit: spellcard199 <spellcard199@protonmail.com>

    Add unwind-protect in geiser-kawa-deps--run-kawa-unadviced
---
 elisp/geiser-kawa-deps.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/elisp/geiser-kawa-deps.el b/elisp/geiser-kawa-deps.el
index f37cdce..a22cb0e 100644
--- a/elisp/geiser-kawa-deps.el
+++ b/elisp/geiser-kawa-deps.el
@@ -70,8 +70,9 @@ at REPL startup."
 (defun geiser-kawa-deps--run-kawa-unadviced()
   "Call `run-kawa' without triggering our advice."
   (geiser-kawa-deps--run-kawa--advice-remove)
-  (run-kawa)
-  (geiser-kawa-deps--run-kawa--advice-add))
+  (unwind-protect
+      (run-kawa)
+    (geiser-kawa-deps--run-kawa--advice-add)))
 
 (defun geiser-kawa-deps--run-kawa--add-compil-hook()
   "Run `run-kawa' unadviced the next time a compilation finishes."



reply via email to

[Prev in Thread] Current Thread [Next in Thread]