From 05f9fbaa7fb5facd2c4e458f9529c778d0a5e7a5 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Tue, 27 Aug 2019 10:58:41 +0530 Subject: Fix unwind protection in ennu-with-temporary-directory. * ennu.el (ennu-with-temporary-directory): Fix unwind protection. --- ennu.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/ennu.el b/ennu.el index 412aa55..eb04b4e 100644 --- a/ennu.el +++ b/ennu.el @@ -367,7 +367,8 @@ finally delete the temporary directory. The value returned is the value of the last form in BODY." (declare (indent defun)) `(let ((,temporary-directory (make-temp-file "ennu" t))) - (unwind-protect ,@body + (unwind-protect + (progn ,@body) (delete-directory ,temporary-directory t)))) (defun ennu-many-to-many-group-by (function sequence) -- cgit v1.2.3