diff options
| author | Craig Earls <enderw88@gmail.com> | 2014-06-29 19:44:02 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2014-06-29 19:44:02 -0700 |
| commit | add716f7761c4e60134b847b9257e0b2b563de91 (patch) | |
| tree | 770d7eecc4e2de5ba4a350aeb48cdb5940cb59f9 /lisp | |
| parent | 838625f8a3039057386d0679e7d1d918df60465e (diff) | |
| download | fork-ledger-add716f7761c4e60134b847b9257e0b2b563de91.tar.gz fork-ledger-add716f7761c4e60134b847b9257e0b2b563de91.tar.bz2 fork-ledger-add716f7761c4e60134b847b9257e0b2b563de91.zip | |
ledger reconcile will recommend the account in the posting, even if point isn't in it.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ledger-mode.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/ledger-mode.el b/lisp/ledger-mode.el index f89df45c..0d348af3 100644 --- a/lisp/ledger-mode.el +++ b/lisp/ledger-mode.el @@ -93,8 +93,7 @@ (defun ledger-read-account-with-prompt (prompt) (let* ((context (ledger-context-at-point)) - (default (if (and (eq (ledger-context-line-type context) 'acct-transaction) - (eq (ledger-context-current-field context) 'account)) + (default (if (eq (ledger-context-line-type context) 'acct-transaction) (regexp-quote (ledger-context-field-value context 'account)) nil))) (ledger-read-string-with-default prompt default))) |