Add macro ublt/with-cleanup

ubolonton · Mar 26, 2021 · 9b3e8d7 · 9b3e8d7
1 parent c1c0dee
commit 9b3e8d7
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/config/ublt-util.el b/config/ublt-util.el
@@ -32,6 +32,20 @@
         (eval-defun nil))
     (compile-defun)))
 
+(defmacro ublt/with-cleanup (form &rest body)
+  "Execute FORM with BODY as cleanup code that is executed on error.
+
+Unlike `condition-case', any signal error is propagated.
+
+Unlike `unwind-protect', BODY is not executed if FORM does not signal an error."
+  (declare (indent 1))
+  `(let ((err t))
+     (unwind-protect
+         (prog1 ,form
+           (setq err nil))
+       (when err
+         ,@body))))
+
 (defmacro ublt/examples (&rest body)
   nil)