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

*** empty log message ***

Browse source
This commit is contained in:
John Wiegley 2005-02-13 23:44:41 +00:00
parent 9f28189cea
commit ff48992067
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
ledger.el
View file

@ -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)