diff options
author | Craig Earls <enderw88@gmail.com> | 2013-09-20 07:26:44 -0700 |
---|---|---|
committer | Craig Earls <enderw88@gmail.com> | 2013-09-20 07:26:44 -0700 |
commit | bee6605e084777261f1536e4e65f76bb94eca06c (patch) | |
tree | 678bddcb8dc8bfd87d352084c3dece144a0974ed /lisp/ledger-xact.el | |
parent | 9f3afc26f5e7863ed8beac3a411dab8becc7bff9 (diff) | |
parent | d30c3fb869b8c4f7740eefec573fadedbe21b7d1 (diff) | |
download | fork-ledger-bee6605e084777261f1536e4e65f76bb94eca06c.tar.gz fork-ledger-bee6605e084777261f1536e4e65f76bb94eca06c.tar.bz2 fork-ledger-bee6605e084777261f1536e4e65f76bb94eca06c.zip |
Merge branch 'master' into ledger-mode-automatic-transactions
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 fac040e6..7f2200a4 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." |