diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-02-08 23:42:52 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-02-08 23:42:52 -0700 |
| commit | 73f8c10d8e65de56a5708f6a93da340861bd9646 (patch) | |
| tree | e85618030a865350d2ad2333c4d60581be40f79e /lisp/ldg-reconcile.el | |
| parent | 73f336ae7c89e6f1b5f38c32fe398f39ad3667b5 (diff) | |
| download | fork-ledger-73f8c10d8e65de56a5708f6a93da340861bd9646.tar.gz fork-ledger-73f8c10d8e65de56a5708f6a93da340861bd9646.tar.bz2 fork-ledger-73f8c10d8e65de56a5708f6a93da340861bd9646.zip | |
More reconcile-visit bug squashing.
Diffstat (limited to 'lisp/ldg-reconcile.el')
| -rw-r--r-- | lisp/ldg-reconcile.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/ldg-reconcile.el b/lisp/ldg-reconcile.el index 463eb9cf..5314f554 100644 --- a/lisp/ldg-reconcile.el +++ b/lisp/ldg-reconcile.el @@ -32,17 +32,20 @@ (defcustom ledger-fold-on-reconcile t "if t, limit transactions shown in main buffer to those matching the reconcile regex" + :type 'boolean :group 'ledger) (defcustom ledger-buffer-tracks-reconcile-buffer t "if t, then when the cursor is moved to a new xact in the recon window, then that transaction will be shown in its source buffer." + :type 'boolean :group 'ledger) (defcustom ledger-reconcile-force-window-bottom nil "If t make the reconcile window appear along the bottom of the register window and resize" + :type 'boolean :group 'ledger) (defun ledger-display-balance () @@ -146,8 +149,9 @@ (progn (beginning-of-line) (let* ((where (get-text-property (1+ (point)) 'where)) - (target-buffer (ledger-reconcile-get-buffer - where)) + (target-buffer (if where + (ledger-reconcile-get-buffer where) + nil)) (cur-buf (current-buffer))) (when target-buffer (switch-to-buffer-other-window target-buffer) |