From db7e4fd741021bec72121f915414679d30144735 Mon Sep 17 00:00:00 2001 From: Craig Earls Date: Sat, 15 Nov 2014 21:36:34 -0700 Subject: Fix minor navigation bugs. Prev and next act now properly handle directives and empty lines --- lisp/ledger-navigate.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'lisp/ledger-navigate.el') diff --git a/lisp/ledger-navigate.el b/lisp/ledger-navigate.el index 5da5cf8d..d954222f 100644 --- a/lisp/ledger-navigate.el +++ b/lisp/ledger-navigate.el @@ -54,11 +54,14 @@ beginning with whitespace" (ledger-navigate-start-xact-or-directive-p))) (forward-line)))) -(defun ledger-navigate-prev-xact () +(defun ledger-navigate-prev-xact-or-directive () "Move point to beginning of previous xact." (interactive) - (ledger-navigate-beginning-of-xact) - (re-search-backward ledger-xact-start-regex nil t)) + (let ((context (car (ledger-context-at-point)))) + (when (equal context 'acct-transaction) + (ledger-navigate-beginning-of-xact)) + (beginning-of-line) + (re-search-backward "^[[:graph:]]" nil t))) (defun ledger-navigate-beginning-of-xact () "Move point to the beginning of the current xact" @@ -75,7 +78,7 @@ beginning with whitespace" "Move point to end of xact." (interactive) (ledger-navigate-next-xact-or-directive) - (backward-char) + (re-search-backward "^[ \t]") (end-of-line) (point)) -- cgit v1.2.3