diff options
| author | Craig Earls <enderw88@gmail.com> | 2014-09-17 21:14:01 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2014-09-17 21:14:01 -0700 |
| commit | a7e85b65b00249bdcaccb322729be4dc8b4d267d (patch) | |
| tree | 072167d6f1e39338b6a1d78cd9444d460ebb5abf /lisp/ledger-navigate.el | |
| parent | 514cee9761f83855cc722680e1deebdd5bfc39c5 (diff) | |
| download | fork-ledger-a7e85b65b00249bdcaccb322729be4dc8b4d267d.tar.gz fork-ledger-a7e85b65b00249bdcaccb322729be4dc8b4d267d.tar.bz2 fork-ledger-a7e85b65b00249bdcaccb322729be4dc8b4d267d.zip | |
Fix ledger-navigate-beginning-of-xact.
It failed it it was called with point on the first line of an xact
Diffstat (limited to 'lisp/ledger-navigate.el')
| -rw-r--r-- | lisp/ledger-navigate.el | 2 |
1 files changed, 2 insertions, 0 deletions
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)) |