diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-03-04 09:36:34 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-03-04 09:36:34 -0700 |
| commit | efce6c89362abed1276cd060cec8077777a038e4 (patch) | |
| tree | 79096adb2a9323e154172c23ae12892b9afe4318 /lisp/ldg-reconcile.el | |
| parent | 4810da9398809fc090c7f044d3545050a465d2bb (diff) | |
| download | fork-ledger-efce6c89362abed1276cd060cec8077777a038e4.tar.gz fork-ledger-efce6c89362abed1276cd060cec8077777a038e4.tar.bz2 fork-ledger-efce6c89362abed1276cd060cec8077777a038e4.zip | |
Add acct under point to reconcile prompt. Fix reconcile balance display of empty accounts
Diffstat (limited to 'lisp/ldg-reconcile.el')
| -rw-r--r-- | lisp/ldg-reconcile.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/ldg-reconcile.el b/lisp/ldg-reconcile.el index 33c9f06f..e45ab7c3 100644 --- a/lisp/ldg-reconcile.el +++ b/lisp/ldg-reconcile.el @@ -351,10 +351,11 @@ POSTING is used in `ledger-clear-whole-transactions' is nil." (set-window-buffer (split-window (get-buffer-window buf) nil nil) rbuf) (pop-to-buffer rbuf))) -(defun ledger-reconcile (account) - "Start reconciling ACCOUNT." - (interactive "sAccount to reconcile: ") - (let ((buf (current-buffer)) +(defun ledger-reconcile () + "Start reconciling, prompt for account." + (interactive) + (let ((account (ledger-post-read-account-with-prompt "Account to reconcile")) + (buf (current-buffer)) (rbuf (get-buffer ledger-recon-buffer-name))) ;; this means ;; only one ;; *Reconcile* |