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

Make sure there is alive window to switch back to when quitting reconcile buffer

Browse source
This commit is contained in:
Craig Earls 2014-12-07 12:15:15 -07:00
parent dedc6c7061
commit 2f0dcec10e
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ledger-reconcile.el
View file

@ -197,15 +197,16 @@ Return the number of uncleared xacts found."
(defun ledger-reconcile-refresh-after-save ()
"Refresh the recon-window after the ledger buffer is saved."
(let ((curbuf (current-buffer))
(let ((curbufwin (get-buffer-window (current-buffer)))
(curpoint (point))
(recon-buf (get-buffer ledger-recon-buffer-name)))
(when (buffer-live-p recon-buf)
(with-current-buffer recon-buf
(ledger-reconcile-refresh)
(set-buffer-modified-p nil))
(select-window (get-buffer-window curbuf))
(goto-char curpoint))))
(when curbufwin
(select-window curbufwin)
(goto-char curpoint)))))
(defun ledger-reconcile-add ()
"Use ledger xact to add a new transaction."