diff options
| author | Craig Earls <enderw88@gmail.com> | 2015-01-19 19:23:25 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2015-01-19 19:23:25 -0700 |
| commit | a65033b66cc084ca0c40538a9aa0e243cc32ab8c (patch) | |
| tree | 41161eb36a1a85faaf9c8881fd02f9e369d71776 /lisp/ledger-reconcile.el | |
| parent | 6547448676ee51c390086e49da32f6cb636b74f9 (diff) | |
| download | fork-ledger-a65033b66cc084ca0c40538a9aa0e243cc32ab8c.tar.gz fork-ledger-a65033b66cc084ca0c40538a9aa0e243cc32ab8c.tar.bz2 fork-ledger-a65033b66cc084ca0c40538a9aa0e243cc32ab8c.zip | |
[emacs] Fix bug 1104 handle no ledger-reconcile-buffer-header
Diffstat (limited to 'lisp/ledger-reconcile.el')
| -rw-r--r-- | lisp/ledger-reconcile.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/ledger-reconcile.el b/lisp/ledger-reconcile.el index 80e27ae3..100c7de6 100644 --- a/lisp/ledger-reconcile.el +++ b/lisp/ledger-reconcile.el @@ -79,7 +79,7 @@ reconcile-finish will mark all pending posting cleared." "Default header string for the reconcile buffer. 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 :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))) (if (and ledger-success (> (length xacts) 0)) (progn - (insert (format ledger-reconcile-buffer-header account)) + (if ledger-reconcile-buffer-header + (insert (format ledger-reconcile-buffer-header account))) (dolist (xact xacts) (ledger-reconcile-format-xact xact fmt)) (goto-char (point-max)) |