From d3d5c333f5a379a3fe3cbbf43a1098a44ed9b1be Mon Sep 17 00:00:00 2001 From: Craig Earls Date: Thu, 4 Sep 2014 22:31:34 -0700 Subject: improved xact iteration so fontify-whole-buffer doesn't miss xact separated by more than a single empty line --- lisp/ledger-fontify.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'lisp/ledger-fontify.el') diff --git a/lisp/ledger-fontify.el b/lisp/ledger-fontify.el index 83c8753c..86fd35c5 100644 --- a/lisp/ledger-fontify.el +++ b/lisp/ledger-fontify.el @@ -40,14 +40,14 @@ (save-excursion (message "Ledger fontify whole buffer") (goto-char (point-min)) + (while (not (eobp)) - (cond ((looking-at ledger-xact-start-regex) + (cond ((looking-at ledger-xact-start-regex) (ledger-fontify-xact-at (point))) ((looking-at ledger-directive-start-regex) (ledger-fontify-directive-at (point)))) - - (forward-paragraph) - (forward-char)))) + (ledger-xact-next-xact-or-directive) ;; gets to beginning of next xact + ))) (defun ledger-fontify-activate () "add hook to fontify after buffer changes" -- cgit v1.2.3