diff options
| -rw-r--r-- | lisp/seam-test.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/seam-test.el b/lisp/seam-test.el index 791c964..cf4f219 100644 --- a/lisp/seam-test.el +++ b/lisp/seam-test.el @@ -66,6 +66,8 @@ (let ,options (let ,(cl-loop for (name . args) in varlist collect `(,name (seam-make-note ,@args))) + ;; FIXME: It's quite possible for tests to fail in such a way + ;; that this does not kill the buffers. (unwind-protect (progn ,@body) (mapcar #'kill-buffer (list ,@(mapcar #'car varlist)))))))) |