Merge pull request #208 from vkurup/master

ledger-copy-transaction-at-point: leave point in better place for editing
This commit is contained in:
Craig Earls 2013-09-08 11:08:10 -07:00
commit 0f17bc11c2

View file

@ -150,7 +150,9 @@ MOMENT is an encoded date"
(backward-paragraph 2) (backward-paragraph 2)
(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)
(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."