summaryrefslogtreecommitdiff
path: root/lisp/ledger.el
diff options
context:
space:
mode:
authorJohn Wiegley <johnw@newartisans.com>2009-02-11 20:20:18 -0400
committerJohn Wiegley <johnw@newartisans.com>2009-02-11 20:20:18 -0400
commite446b0077e00e4e90e1b28d61c9e1e9315525584 (patch)
tree8257045aa1cf0b512ea209022e997de39ef8bd90 /lisp/ledger.el
parent20bf2547d101617ecfc01fcee346fab64ded3d44 (diff)
downloadfork-ledger-e446b0077e00e4e90e1b28d61c9e1e9315525584.tar.gz
fork-ledger-e446b0077e00e4e90e1b28d61c9e1e9315525584.tar.bz2
fork-ledger-e446b0077e00e4e90e1b28d61c9e1e9315525584.zip
After hitting TAB to insert a new entry, position point at the amount.
Diffstat (limited to 'lisp/ledger.el')
-rw-r--r--lisp/ledger.el3
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/ledger.el b/lisp/ledger.el
index 43aabffe..7021c7df 100644
--- a/lisp/ledger.el
+++ b/lisp/ledger.el
@@ -1179,7 +1179,10 @@ the default."
(ledger-add-entry text t)
((error)
(insert text))))
+ (forward-line)
(goto-char (line-end-position))
+ (search-backward ";" (line-beginning-position) t)
+ (skip-chars-backward " \t0123456789.,")
(throw 'pcompleted t))
(ledger-accounts)))))