From 988a41c3a4e9dbc131bb3e0d2fca18f796468777 Mon Sep 17 00:00:00 2001 From: Craig Earls Date: Wed, 20 Feb 2013 14:00:46 -0700 Subject: Make ledger-reconcile a little cleaner. The recon buffer is filled before asking for target, so there isn't a blank window showing while asking for target. --- lisp/ldg-reconcile.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'lisp/ldg-reconcile.el') diff --git a/lisp/ldg-reconcile.el b/lisp/ldg-reconcile.el index 6d7226de..602d918e 100644 --- a/lisp/ldg-reconcile.el +++ b/lisp/ldg-reconcile.el @@ -362,12 +362,12 @@ POSTING is used in `ledger-clear-whole-transactions' is nil." (if ledger-fold-on-reconcile (ledger-occur-change-regex account ledger-buf)) (set-buffer (get-buffer ledger-recon-buffer-name)) - (setq ledger-target - (ledger-read-commodity-string "Set reconciliation target")) (unless (get-buffer-window rbuf) (ledger-reconcile-open-windows buf rbuf)) (ledger-reconcile-refresh) - (goto-char (point-min))) + (goto-char (point-min)) + (setq ledger-target + (ledger-read-commodity-string "Set reconciliation target"))) (progn ;; no recon-buffer, starting from scratch. (add-hook 'after-save-hook 'ledger-reconcile-refresh-after-save nil t) @@ -379,9 +379,9 @@ POSTING is used in `ledger-clear-whole-transactions' is nil." (ledger-reconcile-mode) (set (make-local-variable 'ledger-buf) buf) (set (make-local-variable 'ledger-acct) account) + (ledger-do-reconcile) (set (make-local-variable 'ledger-target) - (ledger-read-commodity-string "Set reconciliation target")) - (ledger-do-reconcile)))))) + (ledger-read-commodity-string "Set reconciliation target"))))))) (defvar ledger-reconcile-mode-abbrev-table) -- cgit v1.2.3