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

After hitting TAB to insert a new entry, position point at the amount.

Browse source
This commit is contained in:
John Wiegley 2009-02-11 20:20:18 -04:00
parent 20bf2547d1
commit e446b0077e
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ledger.el
View file

@ -1179,7 +1179,10 @@ the default."
(ledger-add-entry text t) (ledger-add-entry text t)
((error) ((error)
(insert text)))) (insert text))))
(forward-line)
(goto-char (line-end-position)) (goto-char (line-end-position))
(search-backward ";" (line-beginning-position) t)
(skip-chars-backward " \t0123456789.,")
(throw 'pcompleted t)) (throw 'pcompleted t))
(ledger-accounts))))) (ledger-accounts)))))