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

This commit is contained in:
Craig Earls 2015-01-19 19:23:25 -07:00
parent 6547448676
commit a65033b66c

View file

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