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

Fix bug 915 Save in reconcile mode maintains point.

Browse source
This commit is contained in:
Craig Earls 2013-03-17 20:01:58 -07:00
parent b1c2c49709
commit 431d7e5b25
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ldg-reconcile.el
View file

@ -205,11 +205,13 @@ Return the number of uncleared xacts found."
(defun ledger-reconcile-save () (defun ledger-reconcile-save ()
"Save the ledger buffer." "Save the ledger buffer."
(interactive) (interactive)
(let ((curpoint (point)))
(dolist (buf (cons ledger-buf ledger-bufs)) (dolist (buf (cons ledger-buf ledger-bufs))
(with-current-buffer buf (with-current-buffer buf
(save-buffer))) (save-buffer)))
(set-buffer-modified-p nil) (set-buffer-modified-p nil)
(ledger-display-balance)) (ledger-display-balance)
(goto-char curpoint)))
(defun ledger-reconcile-finish () (defun ledger-reconcile-finish ()
"Mark all pending posting or transactions as cleared. "Mark all pending posting or transactions as cleared.