diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-09-08 11:08:10 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-09-08 11:08:10 -0700 |
| commit | 0f17bc11c2955d043cc17d52220c4af9f5dcf47f (patch) | |
| tree | 1d8423bc4cb6b22c194c9e5dac05a4de7e7f5799 /lisp/ledger-xact.el | |
| parent | 2428732a02416d62b96631de29cc965f46f93226 (diff) | |
| parent | 7704018968e6783d526d6855a16ebac4a782438f (diff) | |
| download | fork-ledger-0f17bc11c2955d043cc17d52220c4af9f5dcf47f.tar.gz fork-ledger-0f17bc11c2955d043cc17d52220c4af9f5dcf47f.tar.bz2 fork-ledger-0f17bc11c2955d043cc17d52220c4af9f5dcf47f.zip | |
Merge pull request #208 from vkurup/master
ledger-copy-transaction-at-point: leave point in better place for editing
Diffstat (limited to 'lisp/ledger-xact.el')
| -rw-r--r-- | lisp/ledger-xact.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/ledger-xact.el b/lisp/ledger-xact.el index 25413e43..e6269580 100644 --- a/lisp/ledger-xact.el +++ b/lisp/ledger-xact.el @@ -150,7 +150,9 @@ MOMENT is an encoded date" (backward-paragraph 2) (re-search-forward ledger-iso-date-regexp) (replace-match date) - (ledger-next-amount))) + (ledger-next-amount) + (if (re-search-forward "[-0-9]") + (goto-char (match-beginning 0))))) (defun ledger-delete-current-transaction (pos) "Delete the transaction surrounging point." |