sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix ledger-navigate-beginning-of-xact.

Browse source 
It failed it it was called with point on the first line of an xact
This commit is contained in:
Craig Earls 2014-09-17 21:14:01 -07:00
parent 514cee9761
commit a7e85b65b0
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/ledger-navigate.el
View file

@ -62,6 +62,8 @@ beginning with whitespace"
(defun ledger-navigate-beginning-of-xact () (defun ledger-navigate-beginning-of-xact ()
"Move point to the beginning of the current xact" "Move point to the beginning of the current xact"
(interactive) (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) (unless (looking-at ledger-xact-start-regex)
(re-search-backward ledger-xact-start-regex nil t) (re-search-backward ledger-xact-start-regex nil t)
(beginning-of-line)) (beginning-of-line))