diff options
Diffstat (limited to 'lisp/ledger-navigate.el')
| -rw-r--r-- | lisp/ledger-navigate.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lisp/ledger-navigate.el b/lisp/ledger-navigate.el index 949654e4..1cbde11d 100644 --- a/lisp/ledger-navigate.el +++ b/lisp/ledger-navigate.el @@ -26,15 +26,15 @@ (provide 'ledger-navigate) -;; (defun ledger-navigate-next-xact-or-directive () -;; "Move point to beginning of next xact." -;; ;; make sure we actually move to the next xact, even if we are the -;; ;; beginning of one now. -;; (if (looking-at ledger-payee-any-status-regex) -;; (forward-line)) -;; (if (re-search-forward ledger-payee-any-status-regex nil t) -;; (goto-char (match-beginning 0)) -;; (goto-char (point-max)))) +(defun ledger-navigate-next-xact () + "Move point to beginning of next xact." + ;; make sure we actually move to the next xact, even if we are the + ;; beginning of one now. + (if (looking-at ledger-payee-any-status-regex) + (forward-line)) + (if (re-search-forward ledger-payee-any-status-regex nil t) + (goto-char (match-beginning 0)) + (goto-char (point-max)))) (defun ledger-navigate-start-xact-or-directive-p () "return t if at the beginning of an empty line or line |