diff options
| author | John Wiegley <johnw@newartisans.com> | 2005-02-13 23:44:41 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2008-04-13 02:40:59 -0400 |
| commit | ff489920672e64f42d8847baae1d60da2f2e679b (patch) | |
| tree | d86202b4345776a9c4845e7186dbbcdbbbe3b8e7 /ledger.el | |
| parent | 9f28189cea7ffc0126e9389d15cde05da904da83 (diff) | |
| download | fork-ledger-ff489920672e64f42d8847baae1d60da2f2e679b.tar.gz fork-ledger-ff489920672e64f42d8847baae1d60da2f2e679b.tar.bz2 fork-ledger-ff489920672e64f42d8847baae1d60da2f2e679b.zip | |
*** empty log message ***
Diffstat (limited to 'ledger.el')
| -rw-r--r-- | ledger.el | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -214,11 +214,12 @@ Return the difference in the format of a time value." (let ((exit-code (ledger-run-ledger buffer "-C" "balance" account))) (if (/= 0 exit-code) (message "Error determining cleared balance") - (goto-char (point-min)) + (goto-char (1- (point-max))) + (goto-char (line-beginning-position)) (delete-horizontal-space) - (skip-syntax-forward "^ ") (message "Cleared balance = %s" - (buffer-substring-no-properties (point-min) (point)))))))) + (buffer-substring-no-properties (point) + (line-end-position)))))))) (defun ledger-reconcile-toggle () (interactive) |