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

Insert an extra newline if EOBP is not on its own line when you add an act.

Browse source
This commit is contained in:
Craig Earls 2015-08-22 18:47:05 -07:00
parent f310341bf5
commit 2fe6663fdb
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

@ -89,8 +89,9 @@ MOMENT is an encoded date"
(when (and (eobp) last-xact-start) (when (and (eobp) last-xact-start)
(let ((end (cadr (ledger-navigate-find-xact-extents last-xact-start)))) (let ((end (cadr (ledger-navigate-find-xact-extents last-xact-start))))
(goto-char end) (goto-char end)
(if (eobp) (if (= (line-beginning-position) (line-end-position))
(insert "\n") (insert "\n")
(insert "\n\n")
(forward-line)))))) (forward-line))))))
(defun ledger-xact-iterate-transactions (callback) (defun ledger-xact-iterate-transactions (callback)