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

6
lisp/ldg-mode.el
View file

@ -75,7 +75,11 @@ Can indent, complete or align depending on context."
(if (= (point) (line-beginning-position)) (if (= (point) (line-beginning-position))
(indent-to ledger-post-account-alignment-column) (indent-to ledger-post-account-alignment-column)
(save-excursion (save-excursion
(re-search-backward ledger-account-or-metadata-regex (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)) (line-beginning-position) t))
(when (= (point) (match-end 0)) (when (= (point) (match-end 0))
(ledger-pcomplete interactively)))) (ledger-pcomplete interactively))))