diff options
| author | Craig Earls <enderw88@gmail.com> | 2014-12-05 21:30:29 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2014-12-05 21:30:29 -0700 |
| commit | a5d4d780dc13d8f176f2f3397be11b2f3d4d840e (patch) | |
| tree | 2d539b886e17bd8f51c8eb95bf9dd5f54e6219b3 /lisp/ledger-mode.el | |
| parent | 3d179c421363424e680aac055bb8c56cb66f17e8 (diff) | |
| download | ledger-a5d4d780dc13d8f176f2f3397be11b2f3d4d840e.tar.gz ledger-a5d4d780dc13d8f176f2f3397be11b2f3d4d840e.tar.bz2 ledger-a5d4d780dc13d8f176f2f3397be11b2f3d4d840e.zip | |
Make reconcile more robust to empty or bad account entries at the prompt.
Diffstat (limited to 'lisp/ledger-mode.el')
| -rw-r--r-- | lisp/ledger-mode.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/ledger-mode.el b/lisp/ledger-mode.el index e53b23bf..4fc90f60 100644 --- a/lisp/ledger-mode.el +++ b/lisp/ledger-mode.el @@ -100,7 +100,7 @@ "Read an account from the minibuffer with PROMPT." (let ((context (ledger-context-at-point))) (ledger-read-string-with-default prompt - (if (eq (ledger-context-line-type context) 'acct-transaction) + (if (eq (ledger-context-current-field context) 'account) (regexp-quote (ledger-context-field-value context 'account)) nil)))) |