diff options
author | Arun Isaac | 2019-08-27 10:58:41 +0530 |
---|---|---|
committer | Arun Isaac | 2019-08-27 10:58:41 +0530 |
commit | 05f9fbaa7fb5facd2c4e458f9529c778d0a5e7a5 (patch) | |
tree | 2424f837735c2e37054b69613568676e8d5cbc2b | |
parent | d637e3a7cf40598319a7e6b039ee43e8a7725b48 (diff) | |
download | ennum-05f9fbaa7fb5facd2c4e458f9529c778d0a5e7a5.tar.gz ennum-05f9fbaa7fb5facd2c4e458f9529c778d0a5e7a5.tar.lz ennum-05f9fbaa7fb5facd2c4e458f9529c778d0a5e7a5.zip |
Fix unwind protection in ennu-with-temporary-directory.
* ennu.el (ennu-with-temporary-directory): Fix unwind protection.
-rw-r--r-- | ennu.el | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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) |