diff options
| author | George Kettleborough <g.kettleborough@member.fsf.org> | 2013-04-15 21:42:20 +0100 |
|---|---|---|
| committer | George Kettleborough <g.kettleborough@member.fsf.org> | 2013-04-15 21:42:20 +0100 |
| commit | 2c07d4152a38cdd7f22392ddf39a737cbbdc3555 (patch) | |
| tree | c1cb6caefc3a97a85426489dec06f637edd5482f | |
| parent | db4731d8a913aabb296ead5212fde8e281cbe5e8 (diff) | |
| download | fork-ledger-2c07d4152a38cdd7f22392ddf39a737cbbdc3555.tar.gz fork-ledger-2c07d4152a38cdd7f22392ddf39a737cbbdc3555.tar.bz2 fork-ledger-2c07d4152a38cdd7f22392ddf39a737cbbdc3555.zip | |
Fix completion on payees
| -rw-r--r-- | lisp/ldg-mode.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/ldg-mode.el b/lisp/ldg-mode.el index 86889dda..6bad10d2 100644 --- a/lisp/ldg-mode.el +++ b/lisp/ldg-mode.el @@ -75,8 +75,12 @@ Can indent, complete or align depending on context." (if (= (point) (line-beginning-position)) (indent-to ledger-post-account-alignment-column) (save-excursion - (re-search-backward ledger-account-or-metadata-regex - (line-beginning-position) t)) + (re-search-backward + (macroexpand + `(rx (or (regex ,ledger-account-any-status-regex) + (regex ,ledger-metadata-regex) + (regex ,ledger-payee-any-status-regex)))) + (line-beginning-position) t)) (when (= (point) (match-end 0)) (ledger-pcomplete interactively)))) (ledger-post-align-postings)) |