diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-03-09 15:04:07 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-03-09 15:04:07 -0700 |
| commit | be4a212ff2839adebd908be42cbf46254bf4f754 (patch) | |
| tree | a21ee686287c82f5539e37fb99fba8096cd3e966 | |
| parent | ca99c0de03432393aa6576244005c9ad8806fa29 (diff) | |
| download | fork-ledger-be4a212ff2839adebd908be42cbf46254bf4f754.tar.gz fork-ledger-be4a212ff2839adebd908be42cbf46254bf4f754.tar.bz2 fork-ledger-be4a212ff2839adebd908be42cbf46254bf4f754.zip | |
Fixed bug where reconcile bombed if you tried to start from a comment
| -rw-r--r-- | lisp/ldg-post.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/ldg-post.el b/lisp/ldg-post.el index 46acad1a..e23b3135 100644 --- a/lisp/ldg-post.el +++ b/lisp/ldg-post.el @@ -234,7 +234,8 @@ BEG, END, and LEN control how far it can align." (defun ledger-post-read-account-with-prompt (prompt) (let* ((context (ledger-context-at-point)) (default - (if (eq (ledger-context-line-type context) 'acct-transaction) + (if (and (eq (ledger-context-line-type context) 'acct-transaction) + (eq (ledger-context-current-field context) 'account)) (regexp-quote (ledger-context-field-value context 'account)) nil))) (ledger-read-string-with-default prompt default))) |