diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-03-14 11:37:12 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-03-14 11:37:12 -0700 |
| commit | f89665ba44ae50f056363d7e2c79a508060e2d18 (patch) | |
| tree | f32174e10d6ef16a5e9614f7a4bf1a9fd2db6e30 /lisp/ldg-reconcile.el | |
| parent | b608ed23e413aaec6024c42c453f8cd9854498d7 (diff) | |
| download | fork-ledger-f89665ba44ae50f056363d7e2c79a508060e2d18.tar.gz fork-ledger-f89665ba44ae50f056363d7e2c79a508060e2d18.tar.bz2 fork-ledger-f89665ba44ae50f056363d7e2c79a508060e2d18.zip | |
Reconcile code cleanup
Diffstat (limited to 'lisp/ldg-reconcile.el')
| -rw-r--r-- | lisp/ldg-reconcile.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/ldg-reconcile.el b/lisp/ldg-reconcile.el index ec4b7f88..c5e20c64 100644 --- a/lisp/ldg-reconcile.el +++ b/lisp/ldg-reconcile.el @@ -148,13 +148,11 @@ And calculate the target-delta of the account being reconciled." "Force the reconciliation window to refresh. Return the number of uncleared xacts found." (interactive) - (let ((inhibit-read-only t) - (line (count-lines (point-min) (point)))) + (let ((inhibit-read-only t)) (erase-buffer) (prog1 (ledger-do-reconcile) (set-buffer-modified-p t) - (goto-char (point-min)) - (forward-line line)))) + (goto-char (point-min))))) (defun ledger-reconcile-refresh-after-save () "Refresh the recon-window after the ledger buffer is saved." |