update of packages
This commit is contained in:
@@ -155,9 +155,10 @@ Leave point on the first amount."
|
||||
(let* ((extents (ledger-navigate-find-xact-extents (point)))
|
||||
(transaction (buffer-substring-no-properties (car extents) (cadr extents)))
|
||||
(encoded-date (ledger-parse-iso-date date)))
|
||||
(push-mark)
|
||||
(ledger-xact-find-slot encoded-date)
|
||||
(insert transaction
|
||||
(if ledger-copy-transaction-insert-blank-line-after
|
||||
(if (and ledger-copy-transaction-insert-blank-line-after (not (eobp)))
|
||||
"\n\n"
|
||||
"\n"))
|
||||
(beginning-of-line -1)
|
||||
@@ -169,7 +170,7 @@ Leave point on the first amount."
|
||||
(goto-char (match-beginning 0)))))
|
||||
|
||||
(defun ledger-delete-current-transaction (pos)
|
||||
"Delete the transaction surrounging POS."
|
||||
"Delete the transaction surrounding POS."
|
||||
(interactive "d")
|
||||
(let ((bounds (ledger-navigate-find-xact-extents pos)))
|
||||
(delete-region (car bounds) (cadr bounds)))
|
||||
|
||||
Reference in New Issue
Block a user