sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix to the reconcile function, for the case when there are spaces in

Browse source 
an account name.
This commit is contained in:
John Wiegley 2005-02-09 05:42:19 +00:00
parent ee1fd0f4ec
commit 4eac6dc9d6
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
ledger.el
View file

@ -55,7 +55,8 @@
:type 'file :type 'file
:group 'ledger) :group 'ledger)
(defcustom ledger-data-file (getenv "LEDGER") (defcustom ledger-data-file (or (getenv "LEDGER_FILE")
(getenv "LEDGER"))
"Path to the ledger data file." "Path to the ledger data file."
:type 'file :type 'file
:group 'ledger) :group 'ledger)
@ -258,7 +259,8 @@ Return the difference in the format of a time value."
(defun ledger-update-balance-display () (defun ledger-update-balance-display ()
(let ((account ledger-acct)) (let ((account ledger-acct))
(with-temp-buffer (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) (if (/= 0 exit-code)
(setq ledger-reconcile-text "Reconcile [ERR]") (setq ledger-reconcile-text "Reconcile [ERR]")
(goto-char (point-min)) (goto-char (point-min))