From 4eac6dc9d6e2e28945b0d6e6e509c9fdde2b1377 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Wed, 9 Feb 2005 05:42:19 +0000 Subject: Fix to the reconcile function, for the case when there are spaces in an account name. --- ledger.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'ledger.el') diff --git a/ledger.el b/ledger.el index 50905ac8..8fdffa90 100644 --- a/ledger.el +++ b/ledger.el @@ -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)) -- cgit v1.2.3