From a7e85b65b00249bdcaccb322729be4dc8b4d267d Mon Sep 17 00:00:00 2001 From: Craig Earls Date: Wed, 17 Sep 2014 21:14:01 -0700 Subject: Fix ledger-navigate-beginning-of-xact. It failed it it was called with point on the first line of an xact --- lisp/ledger-navigate.el | 2 ++ 1 file changed, 2 insertions(+) (limited to 'lisp/ledger-navigate.el') diff --git a/lisp/ledger-navigate.el b/lisp/ledger-navigate.el index 1cbde11d..1e66dde2 100644 --- a/lisp/ledger-navigate.el +++ b/lisp/ledger-navigate.el @@ -62,6 +62,8 @@ beginning with whitespace" (defun ledger-navigate-beginning-of-xact () "Move point to the beginning of the current xact" (interactive) + ;; need to start at the beginning of a line incase we are in the first line of an xact already. + (beginning-of-line) (unless (looking-at ledger-xact-start-regex) (re-search-backward ledger-xact-start-regex nil t) (beginning-of-line)) -- cgit v1.2.3