diff options
| author | Vinod Kurup <vinod@kurup.com> | 2013-09-08 13:57:09 -0400 |
|---|---|---|
| committer | Vinod Kurup <vinod@kurup.com> | 2013-09-08 13:57:09 -0400 |
| commit | 7704018968e6783d526d6855a16ebac4a782438f (patch) | |
| tree | e6422e2953a4b64052bafafb2ee73aed9fa22801 /lisp | |
| parent | 816f4405b067751ff5081343e633a3ace131e6f0 (diff) | |
| download | fork-ledger-7704018968e6783d526d6855a16ebac4a782438f.tar.gz fork-ledger-7704018968e6783d526d6855a16ebac4a782438f.tar.bz2 fork-ledger-7704018968e6783d526d6855a16ebac4a782438f.zip | |
Find first numeral or minus sign, instead of blind move
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ledger-xact.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/ledger-xact.el b/lisp/ledger-xact.el index 9629dca0..e6269580 100644 --- a/lisp/ledger-xact.el +++ b/lisp/ledger-xact.el @@ -151,7 +151,8 @@ MOMENT is an encoded date" (re-search-forward ledger-iso-date-regexp) (replace-match date) (ledger-next-amount) - (forward-char 2))) + (if (re-search-forward "[-0-9]") + (goto-char (match-beginning 0))))) (defun ledger-delete-current-transaction (pos) "Delete the transaction surrounging point." |