From 77e77f39dcb99df410e969f7bd6c574e4d05dbe8 Mon Sep 17 00:00:00 2001 From: Craig Earls Date: Fri, 5 Sep 2014 21:59:23 -0700 Subject: [PATCH] Solved the fight between jit-lock. But for some reason it isn't calling it for all regions in the buffer. --- lisp/ledger-fontify.el | 2 +- lisp/ledger-mode.el | 7 ++++--- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/ledger-fontify.el b/lisp/ledger-fontify.el index 7621b448..f282167e 100644 --- a/lisp/ledger-fontify.el +++ b/lisp/ledger-fontify.el @@ -63,7 +63,7 @@ (if (string= (format-mode-line 'mode-name) "Ledger") (add-hook 'after-change-functions 'ledger-fontify-buffer-part))) -(defun ledger-fontify-buffer-part (beg end) +(defun ledger-fontify-buffer-part (beg end len) (save-excursion ;; (message (concat "ledger-fontify-buffer-part: " ;; (int-to-string beg) " " diff --git a/lisp/ledger-mode.el b/lisp/ledger-mode.el index 1f6d8c32..94b1f591 100644 --- a/lisp/ledger-mode.el +++ b/lisp/ledger-mode.el @@ -347,14 +347,15 @@ With a prefix argument, remove the effective date. " (if (boundp 'font-lock-defaults) (setq-local font-lock-defaults - '(ledger-font-lock-keywords t t))) + '(ledger-font-lock-keywords t t nil nil + (font-lock-fontify-region-function . ledger-fontify-buffer-part)))) ;; (setq font-lock-extend-region-functions ;; (list #'font-lock-extend-region-wholelines)) ;; (setq font-lock-multiline nil) - (jit-lock-register 'ledger-fontify-buffer-part) - (jit-lock-unregister 'font-lock-fontify-region) + ;(jit-lock-register 'ledger-fontify-buffer-part) + ;(jit-lock-unregister 'font-lock-fontify-region) (setq-local pcomplete-parse-arguments-function 'ledger-parse-arguments) (setq-local pcomplete-command-completion-function 'ledger-complete-at-point)