From 9dedf9120936e2fa85d5e4fad4f1e1618e1074a0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jo=C3=A3o=20T=C3=A1vora?= Date: Sat, 21 Apr 2012 11:58:12 +0100 Subject: [PATCH] with-snippet-dirs: use UNWIND-PROTECT --- yasnippet-tests.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/yasnippet-tests.el b/yasnippet-tests.el index a537b7f..6474294 100755 --- a/yasnippet-tests.el +++ b/yasnippet-tests.el @@ -204,12 +204,13 @@ TODO: correct this bug!" ,@body)) (defmacro with-snippet-dirs (dirs &rest body) - `(let ((default-directory (make-temp-file "yasnippet-fixture" t))) - (setq yas/snippet-dirs ',(mapcar #'car (cadr dirs))) - (mapc #'yas/make-file-or-dirs ,dirs) - ,@body + `(unwind-protect + (let ((default-directory (make-temp-file "yasnippet-fixture" t))) + (setq yas/snippet-dirs ',(mapcar #'car (cadr dirs))) + (mapc #'yas/make-file-or-dirs ,dirs) + ,@body) (when (>= emacs-major-version 23) - (delete-directory default-directory 'recursive)))) + (delete-directory default-directory 'recursive)))) ;;; Older emacsen ;;;