diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-03-22 21:23:27 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-03-22 21:23:27 -0700 |
| commit | 9284600a54c8b4d37b63d25dd9e16dba664badbe (patch) | |
| tree | 0dfe0a9158d2a599a194c8ed87eae1ce1fba07c6 | |
| parent | 0d9250dbe49b62e4e340d8ac8fee84b4e9bfa57d (diff) | |
| download | fork-ledger-9284600a54c8b4d37b63d25dd9e16dba664badbe.tar.gz fork-ledger-9284600a54c8b4d37b63d25dd9e16dba664badbe.tar.bz2 fork-ledger-9284600a54c8b4d37b63d25dd9e16dba664badbe.zip | |
Fix bug 915, maintain post in ledger buffer after save during reconciliation.
| -rw-r--r-- | lisp/ldg-reconcile.el | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/lisp/ldg-reconcile.el b/lisp/ldg-reconcile.el index 511f8f70..99958aaa 100644 --- a/lisp/ldg-reconcile.el +++ b/lisp/ldg-reconcile.el @@ -152,15 +152,20 @@ Return the number of uncleared xacts found." (erase-buffer) (prog1 (ledger-do-reconcile) (set-buffer-modified-p t) - (goto-char (point-min))))) + ;;(goto-char (point-min)) + ))) (defun ledger-reconcile-refresh-after-save () "Refresh the recon-window after the ledger buffer is saved." - (let ((buf (get-buffer ledger-recon-buffer-name))) + (let ((curbuf (current-buffer)) + (curpoint (point)) + (buf (get-buffer ledger-recon-buffer-name))) (if buf - (with-current-buffer buf - (ledger-reconcile-refresh) - (set-buffer-modified-p nil))))) + (progn + (with-current-buffer buf + (ledger-reconcile-refresh) + (set-buffer-modified-p nil)) + (select-window (get-buffer-window curbuf)))))) (defun ledger-reconcile-add () "Use ledger xact to add a new transaction." |