diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-02-20 14:00:46 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-02-20 14:00:46 -0700 |
| commit | 988a41c3a4e9dbc131bb3e0d2fca18f796468777 (patch) | |
| tree | 26bbe9757b02c1f9af837e2ce28a9074ea7ecb1b | |
| parent | f33d232ba34e46e17a39e08ee2f2ad78b5aafb1a (diff) | |
| download | fork-ledger-988a41c3a4e9dbc131bb3e0d2fca18f796468777.tar.gz fork-ledger-988a41c3a4e9dbc131bb3e0d2fca18f796468777.tar.bz2 fork-ledger-988a41c3a4e9dbc131bb3e0d2fca18f796468777.zip | |
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.
| -rw-r--r-- | lisp/ldg-reconcile.el | 10 |
1 files changed, 5 insertions, 5 deletions
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) |