sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Reconcile code cleanup

Browse source
This commit is contained in:
Craig Earls 2013-03-14 11:37:12 -07:00
parent b608ed23e4
commit f89665ba44
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ldg-reconcile.el
View file

@ -148,13 +148,11 @@ And calculate the target-delta of the account being reconciled."
"Force the reconciliation window to refresh. "Force the reconciliation window to refresh.
Return the number of uncleared xacts found." Return the number of uncleared xacts found."
(interactive) (interactive)
(let ((inhibit-read-only t) (let ((inhibit-read-only t))
(line (count-lines (point-min) (point))))
(erase-buffer) (erase-buffer)
(prog1 (ledger-do-reconcile) (prog1 (ledger-do-reconcile)
(set-buffer-modified-p t) (set-buffer-modified-p t)
(goto-char (point-min)) (goto-char (point-min)))))
(forward-line line))))
(defun ledger-reconcile-refresh-after-save () (defun ledger-reconcile-refresh-after-save ()
"Refresh the recon-window after the ledger buffer is saved." "Refresh the recon-window after the ledger buffer is saved."