sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix completion on payees

Browse source
This commit is contained in:
George Kettleborough 2013-04-15 21:42:20 +01:00
parent db4731d8a9
commit 2c07d4152a
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ldg-mode.el
View file

@ -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))