From 514cee9761f83855cc722680e1deebdd5bfc39c5 Mon Sep 17 00:00:00 2001 From: Craig Earls Date: Sat, 13 Sep 2014 18:24:54 -0700 Subject: sort required a next xact function that ignores directives --- lisp/ledger-sort.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lisp/ledger-sort.el') diff --git a/lisp/ledger-sort.el b/lisp/ledger-sort.el index 1ac125a9..9b717113 100644 --- a/lisp/ledger-sort.el +++ b/lisp/ledger-sort.el @@ -104,10 +104,10 @@ (save-restriction (goto-char beg) ;; make sure point is at the beginning of a xact - (ledger-navigate-next-xact-or-directive) + (ledger-navigate-next-xact) (setq new-beg (point)) (goto-char end) - (ledger-navigate-next-xact-or-directive) + (ledger-navigate-next-xact) ;; make sure end of region is at the beginning of next record ;; after the region (setq new-end (point)) @@ -117,7 +117,7 @@ (let ((inhibit-field-text-motion t)) (sort-subr nil - 'ledger-navigate-next-xact-or-directive + 'ledger-navigate-next-xact 'ledger-navigate-end-of-xact 'ledger-sort-startkey)))) -- cgit v1.2.3