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

Find first numeral or minus sign, instead of blind move

Browse source
This commit is contained in:
Vinod Kurup 2013-09-08 13:57:09 -04:00
parent 816f4405b0
commit 7704018968
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ledger-xact.el
View file

@ -151,7 +151,8 @@ MOMENT is an encoded date"
(re-search-forward ledger-iso-date-regexp) (re-search-forward ledger-iso-date-regexp)
(replace-match date) (replace-match date)
(ledger-next-amount) (ledger-next-amount)
(forward-char 2))) (if (re-search-forward "[-0-9]")
(goto-char (match-beginning 0)))))
(defun ledger-delete-current-transaction (pos) (defun ledger-delete-current-transaction (pos)
"Delete the transaction surrounging point." "Delete the transaction surrounging point."