diff options
| author | Craig Earls <enderw88@gmail.com> | 2014-09-13 18:20:03 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2014-09-13 18:20:03 -0700 |
| commit | 7846e7c17ae31fdf71bea093e7410b90e284c04d (patch) | |
| tree | 47958b5897fcb3c05613889d219cf7bcf1a0214d /lisp/ledger-fontify.el | |
| parent | 84dc532b0688431d0964736f6a5d7b3804b5e903 (diff) | |
| download | fork-ledger-7846e7c17ae31fdf71bea093e7410b90e284c04d.tar.gz fork-ledger-7846e7c17ae31fdf71bea093e7410b90e284c04d.tar.bz2 fork-ledger-7846e7c17ae31fdf71bea093e7410b90e284c04d.zip | |
All navigation functions moved to ledger-navigate.
Reduce several overlapping functions.
Diffstat (limited to 'lisp/ledger-fontify.el')
| -rw-r--r-- | lisp/ledger-fontify.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/ledger-fontify.el b/lisp/ledger-fontify.el index a820065d..8059055d 100644 --- a/lisp/ledger-fontify.el +++ b/lisp/ledger-fontify.el @@ -50,13 +50,13 @@ (ledger-fontify-xact-at (point))) ((looking-at ledger-directive-start-regex) (ledger-fontify-directive-at (point)))) - (ledger-next-record-function)))) + (ledger-navigate-next-xact-or-directive)))) (defun ledger-fontify-xact-at (position) (interactive "d") (save-excursion (goto-char position) - (let ((extents (ledger-find-xact-extents position)) + (let ((extents (ledger-navigate-find-xact-extents position)) (state (ledger-transaction-state))) ;; (message (concat "ledger-fontify-xact-at: " ;; (int-to-string position) @@ -121,7 +121,7 @@ 'ledger-font-comment-face))) (defun ledger-fontify-directive-at (position) - (let ((extents (ledger-find-xact-extents position)) + (let ((extents (ledger-navigate-find-xact-extents position)) (face 'ledger-font-default-face)) (cond ((looking-at "=") (setq face 'ledger-font-auto-xact-face)) |