diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-03-17 20:01:58 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-03-17 20:01:58 -0700 |
| commit | 431d7e5b25f7e2997494ace7a0be78492c5d688b (patch) | |
| tree | 2d18474ddf4c5b40939dab61065dacef386aa29e /lisp/ldg-reconcile.el | |
| parent | b1c2c49709c9f2e9a2c0bb715a2e599094483498 (diff) | |
| download | fork-ledger-431d7e5b25f7e2997494ace7a0be78492c5d688b.tar.gz fork-ledger-431d7e5b25f7e2997494ace7a0be78492c5d688b.tar.bz2 fork-ledger-431d7e5b25f7e2997494ace7a0be78492c5d688b.zip | |
Fix bug 915 Save in reconcile mode maintains point.
Diffstat (limited to 'lisp/ldg-reconcile.el')
| -rw-r--r-- | lisp/ldg-reconcile.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/ldg-reconcile.el b/lisp/ldg-reconcile.el index a2c13917..40795ca2 100644 --- a/lisp/ldg-reconcile.el +++ b/lisp/ldg-reconcile.el @@ -205,11 +205,13 @@ Return the number of uncleared xacts found." (defun ledger-reconcile-save () "Save the ledger buffer." (interactive) - (dolist (buf (cons ledger-buf ledger-bufs)) - (with-current-buffer buf - (save-buffer))) - (set-buffer-modified-p nil) - (ledger-display-balance)) + (let ((curpoint (point))) + (dolist (buf (cons ledger-buf ledger-bufs)) + (with-current-buffer buf + (save-buffer))) + (set-buffer-modified-p nil) + (ledger-display-balance) + (goto-char curpoint))) (defun ledger-reconcile-finish () "Mark all pending posting or transactions as cleared. |