diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-06-03 15:31:10 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-06-03 15:31:10 -0700 |
| commit | cb6f4b98900b0b2f0d4167a37a0153fb290f998e (patch) | |
| tree | 4d9db6a68db0d7a294e7c7059afb88eba1e98094 /lisp | |
| parent | 99db205bcde6ac106f145b68e2375c74b39282e4 (diff) | |
| download | fork-ledger-cb6f4b98900b0b2f0d4167a37a0153fb290f998e.tar.gz fork-ledger-cb6f4b98900b0b2f0d4167a37a0153fb290f998e.tar.bz2 fork-ledger-cb6f4b98900b0b2f0d4167a37a0153fb290f998e.zip | |
Fix bug 967, Windows rearranging after reconcile save.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ldg-reconcile.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/ldg-reconcile.el b/lisp/ldg-reconcile.el index 1c50dc0b..c08dc4dd 100644 --- a/lisp/ldg-reconcile.el +++ b/lisp/ldg-reconcile.el @@ -210,7 +210,9 @@ Return the number of uncleared xacts found." (ledger-highlight-xact-under-point) (forward-char -1) (if come-back - (switch-to-buffer-other-window cur-buf)))))) + (select-window + (get-buffer-window + (get-buffer ledger-recon-buffer-name)))))))) (defun ledger-reconcile-save () "Save the ledger buffer." @@ -240,7 +242,8 @@ and exit reconcile mode" (ledger-goto-line (cdr where)) (ledger-toggle-current 'cleared)))) (forward-line 1))) - (ledger-reconcile-save)) + (ledger-reconcile-save) + (ledger-reconcile-quit)) (defun ledger-reconcile-quit () |