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

[emacs] Fix bug 1104 handle no ledger-reconcile-buffer-header

Browse source
This commit is contained in:
Craig Earls 2015-01-19 19:23:25 -07:00
parent 6547448676
commit a65033b66c
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ledger-reconcile.el
View file

@ -79,7 +79,7 @@ reconcile-finish will mark all pending posting cleared."
"Default header string for the reconcile buffer. "Default header string for the reconcile buffer.
If non-nil, the name of the account being reconciled will be substituted If non-nil, the name of the account being reconciled will be substituted
into the '%s'. If nil, no header willbe displayed." into the '%s'. If nil, no header will be displayed."
:type 'string :type 'string
:group 'ledger-reconcile) :group 'ledger-reconcile)
@ -387,7 +387,8 @@ Return a count of the uncleared transactions."
(fmt (ledger-reconcile-compile-format-string ledger-reconcile-buffer-line-format))) (fmt (ledger-reconcile-compile-format-string ledger-reconcile-buffer-line-format)))
(if (and ledger-success (> (length xacts) 0)) (if (and ledger-success (> (length xacts) 0))
(progn (progn
(insert (format ledger-reconcile-buffer-header account)) (if ledger-reconcile-buffer-header
(insert (format ledger-reconcile-buffer-header account)))
(dolist (xact xacts) (dolist (xact xacts)
(ledger-reconcile-format-xact xact fmt)) (ledger-reconcile-format-xact xact fmt))
(goto-char (point-max)) (goto-char (point-max))