diff options
| author | John Wiegley <johnw@newartisans.com> | 2012-03-30 00:37:52 -0500 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2012-03-30 00:51:05 -0500 |
| commit | 4b2b9dc009e5f44029cc23ea17e0a5c98266baff (patch) | |
| tree | 6d19de7bcd14622be7717d4ddeb070e1e1e8c975 /lisp/ldg-test.el | |
| parent | 3a159a134480debee2fd1665b87ab2d0994c3a3e (diff) | |
| download | fork-ledger-4b2b9dc009e5f44029cc23ea17e0a5c98266baff.tar.gz fork-ledger-4b2b9dc009e5f44029cc23ea17e0a5c98266baff.tar.bz2 fork-ledger-4b2b9dc009e5f44029cc23ea17e0a5c98266baff.zip | |
Current directory fix to ldg-test.el
Diffstat (limited to 'lisp/ldg-test.el')
| -rw-r--r-- | lisp/ldg-test.el | 6 |
1 files changed, 5 insertions, 1 deletions
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) |