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

Solved the fight between jit-lock. But for some reason it isn't calling it for all regions in the buffer.

Browse source
This commit is contained in:
Craig Earls 2014-09-05 21:59:23 -07:00
parent 991d162fb0
commit 77e77f39dc
2 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/ledger-fontify.el
View file

@ -63,7 +63,7 @@
(if (string= (format-mode-line 'mode-name) "Ledger") (if (string= (format-mode-line 'mode-name) "Ledger")
(add-hook 'after-change-functions 'ledger-fontify-buffer-part))) (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 (save-excursion
;; (message (concat "ledger-fontify-buffer-part: " ;; (message (concat "ledger-fontify-buffer-part: "
;; (int-to-string beg) " " ;; (int-to-string beg) " "

7
lisp/ledger-mode.el
View file

@ -347,14 +347,15 @@ With a prefix argument, remove the effective date. "
(if (boundp 'font-lock-defaults) (if (boundp 'font-lock-defaults)
(setq-local 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 ;; (setq font-lock-extend-region-functions
;; (list #'font-lock-extend-region-wholelines)) ;; (list #'font-lock-extend-region-wholelines))
;; (setq font-lock-multiline nil) ;; (setq font-lock-multiline nil)
(jit-lock-register 'ledger-fontify-buffer-part) ;(jit-lock-register 'ledger-fontify-buffer-part)
(jit-lock-unregister 'font-lock-fontify-region) ;(jit-lock-unregister 'font-lock-fontify-region)
(setq-local pcomplete-parse-arguments-function 'ledger-parse-arguments) (setq-local pcomplete-parse-arguments-function 'ledger-parse-arguments)
(setq-local pcomplete-command-completion-function 'ledger-complete-at-point) (setq-local pcomplete-command-completion-function 'ledger-complete-at-point)