diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-03-18 15:22:41 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-03-18 15:22:41 -0700 |
| commit | 5b7186ee1fd99e547b6a9f062f155a1a8050e9c3 (patch) | |
| tree | cef46e8afc7171acf7a33a038ca392fd48e5ae40 | |
| parent | 5df242424ab507ca51b7b98c85cde594549510c6 (diff) | |
| download | fork-ledger-5b7186ee1fd99e547b6a9f062f155a1a8050e9c3.tar.gz fork-ledger-5b7186ee1fd99e547b6a9f062f155a1a8050e9c3.tar.bz2 fork-ledger-5b7186ee1fd99e547b6a9f062f155a1a8050e9c3.zip | |
Ensure the ledger but tracks the reconcile buffer after a save.
| -rw-r--r-- | lisp/ldg-reconcile.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/ldg-reconcile.el b/lisp/ldg-reconcile.el index 40795ca2..511f8f70 100644 --- a/lisp/ldg-reconcile.el +++ b/lisp/ldg-reconcile.el @@ -209,9 +209,11 @@ Return the number of uncleared xacts found." (dolist (buf (cons ledger-buf ledger-bufs)) (with-current-buffer buf (save-buffer))) - (set-buffer-modified-p nil) - (ledger-display-balance) - (goto-char curpoint))) + (with-current-buffer (get-buffer ledger-recon-buffer-name) + (set-buffer-modified-p nil) + (ledger-display-balance) + (goto-char curpoint) + (ledger-reconcile-visit t)))) (defun ledger-reconcile-finish () "Mark all pending posting or transactions as cleared. |