diff options
| author | John Wiegley <johnw@newartisans.com> | 2005-02-09 05:42:19 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2008-04-13 02:40:55 -0400 |
| commit | 4eac6dc9d6e2e28945b0d6e6e509c9fdde2b1377 (patch) | |
| tree | 54924277749e41a85980c84362de1c0e8b541240 /ledger.el | |
| parent | ee1fd0f4eca99d15e99390b5a5fabeca3e8caea4 (diff) | |
| download | fork-ledger-4eac6dc9d6e2e28945b0d6e6e509c9fdde2b1377.tar.gz fork-ledger-4eac6dc9d6e2e28945b0d6e6e509c9fdde2b1377.tar.bz2 fork-ledger-4eac6dc9d6e2e28945b0d6e6e509c9fdde2b1377.zip | |
Fix to the reconcile function, for the case when there are spaces in
an account name.
Diffstat (limited to 'ledger.el')
| -rw-r--r-- | ledger.el | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -55,7 +55,8 @@ :type 'file :group 'ledger) -(defcustom ledger-data-file (getenv "LEDGER") +(defcustom ledger-data-file (or (getenv "LEDGER_FILE") + (getenv "LEDGER")) "Path to the ledger data file." :type 'file :group 'ledger) @@ -258,7 +259,8 @@ Return the difference in the format of a time value." (defun ledger-update-balance-display () (let ((account ledger-acct)) (with-temp-buffer - (let ((exit-code (ledger-run-ledger "-C" "balance" account))) + (let ((exit-code (ledger-run-ledger "-C" "balance" + (concat "\"" account "\"")))) (if (/= 0 exit-code) (setq ledger-reconcile-text "Reconcile [ERR]") (goto-char (point-min)) |