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

Fix bug 915, maintain post in ledger buffer after save during reconciliation.

Browse source
This commit is contained in:
Craig Earls 2013-03-22 21:23:27 -07:00
parent 0d9250dbe4
commit 9284600a54
1 changed files with 10 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/ldg-reconcile.el
View file

@ -152,15 +152,20 @@ Return the number of uncleared xacts found."
(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))
)))
(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."
(let ((buf (get-buffer ledger-recon-buffer-name))) (let ((curbuf (current-buffer))
(curpoint (point))
(buf (get-buffer ledger-recon-buffer-name)))
(if buf (if buf
(with-current-buffer buf (progn
(ledger-reconcile-refresh) (with-current-buffer buf
(set-buffer-modified-p nil))))) (ledger-reconcile-refresh)
(set-buffer-modified-p nil))
(select-window (get-buffer-window curbuf))))))
(defun ledger-reconcile-add () (defun ledger-reconcile-add ()
"Use ledger xact to add a new transaction." "Use ledger xact to add a new transaction."