Commit d9330f43 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(jit-lock-after-change): Don't assume point is at START.

parent a895a5a5
...@@ -439,20 +439,22 @@ This function ensures that lines following the change will be refontified ...@@ -439,20 +439,22 @@ This function ensures that lines following the change will be refontified
in case the syntax of those lines has changed. Refontification in case the syntax of those lines has changed. Refontification
will take place when text is fontified stealthily." will take place when text is fontified stealthily."
(when jit-lock-mode (when jit-lock-mode
(save-excursion
(with-buffer-prepared-for-jit-lock
;; It's important that the `fontified' property be set from the ;; It's important that the `fontified' property be set from the
;; beginning of the line, else font-lock will properly change the ;; beginning of the line, else font-lock will properly change the
;; text's face, but the display will have been done already and will ;; text's face, but the display will have been done already and will
;; be inconsistent with the buffer's content. ;; be inconsistent with the buffer's content.
(goto-char start)
(setq start (line-beginning-position)) (setq start (line-beginning-position))
;; Make sure we change at least one char (in case of deletions). ;; Make sure we change at least one char (in case of deletions).
(setq end (min (max end (1+ start)) (point-max))) (setq end (min (max end (1+ start)) (point-max)))
;; Request refontification. ;; Request refontification.
(with-buffer-prepared-for-jit-lock
(put-text-property start end 'fontified nil)) (put-text-property start end 'fontified nil))
;; Mark the change for deferred contextual refontification. ;; Mark the change for deferred contextual refontification.
(when jit-lock-first-unfontify-pos (when jit-lock-first-unfontify-pos
(setq jit-lock-first-unfontify-pos (setq jit-lock-first-unfontify-pos
(min jit-lock-first-unfontify-pos start))))) (min jit-lock-first-unfontify-pos start))))))
(provide 'jit-lock) (provide 'jit-lock)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment