From 4b2b9dc009e5f44029cc23ea17e0a5c98266baff Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Fri, 30 Mar 2012 00:37:52 -0500 Subject: Current directory fix to ldg-test.el --- lisp/ldg-test.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'lisp/ldg-test.el') diff --git a/lisp/ldg-test.el b/lisp/ldg-test.el index a1ae3974..478c62d8 100644 --- a/lisp/ldg-test.el +++ b/lisp/ldg-test.el @@ -66,6 +66,10 @@ ledger-source-directory args)) (kill-new args) (message "Testing: ledger %s" args) - (async-shell-command (format "\"%s\" %s" command args)))))) + (let ((prev-directory default-directory)) + (cd ledger-source-directory) + (unwind-protect + (async-shell-command (format "\"%s\" %s" command args)) + (cd prev-directory))))))) (provide 'ldg-test) -- cgit v1.2.3