From cb6f4b98900b0b2f0d4167a37a0153fb290f998e Mon Sep 17 00:00:00 2001 From: Craig Earls Date: Mon, 3 Jun 2013 15:31:10 -0700 Subject: [PATCH] Fix bug 967, Windows rearranging after reconcile save. --- lisp/ldg-reconcile.el | 7 +++++-- 1 file 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 ()