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

Merge branch 'next' into ledger-mode-automatic-transactions

Browse source
This commit is contained in:
Craig Earls 2013-03-17 20:43:43 -07:00
commit 43ef1df6ab
1 changed files with 10 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
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.
@ -344,7 +346,9 @@ moved and recentered. If they aren't strange things happen."
(if (member this-command (list 'next-line (if (member this-command (list 'next-line
'previous-line 'previous-line
'mouse-set-point 'mouse-set-point
'ledger-reconcile-toggle)) 'ledger-reconcile-toggle
'end-of-buffer
'beginning-of-buffer))
(if ledger-buffer-tracks-reconcile-buffer (if ledger-buffer-tracks-reconcile-buffer
(save-excursion (save-excursion
(ledger-reconcile-visit t))))) (ledger-reconcile-visit t)))))