From a65033b66cc084ca0c40538a9aa0e243cc32ab8c Mon Sep 17 00:00:00 2001 From: Craig Earls Date: Mon, 19 Jan 2015 19:23:25 -0700 Subject: [emacs] Fix bug 1104 handle no ledger-reconcile-buffer-header --- lisp/ledger-reconcile.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'lisp/ledger-reconcile.el') 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)) -- cgit v1.2.3