Mercurial > emacs
changeset 29827:dd9436a06050
(jit-lock-after-change): Don't assume point is at START.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 20 Jun 2000 23:59:05 +0000 |
| parents | 05c0499d035a |
| children | cb30c41d1bb4 |
| files | lisp/jit-lock.el |
| diffstat | 1 files changed, 16 insertions(+), 14 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/jit-lock.el Tue Jun 20 23:58:18 2000 +0000 +++ b/lisp/jit-lock.el Tue Jun 20 23:59:05 2000 +0000 @@ -439,20 +439,22 @@ in case the syntax of those lines has changed. Refontification will take place when text is fontified stealthily." (when jit-lock-mode - ;; It's important that the `fontified' property be set from 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 - ;; be inconsistent with the buffer's content. - (setq start (line-beginning-position)) - ;; Make sure we change at least one char (in case of deletions). - (setq end (min (max end (1+ start)) (point-max))) - ;; Request refontification. - (with-buffer-prepared-for-jit-lock - (put-text-property start end 'fontified nil)) - ;; Mark the change for deferred contextual refontification. - (when jit-lock-first-unfontify-pos - (setq jit-lock-first-unfontify-pos - (min jit-lock-first-unfontify-pos start))))) + (save-excursion + (with-buffer-prepared-for-jit-lock + ;; It's important that the `fontified' property be set from 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 + ;; be inconsistent with the buffer's content. + (goto-char start) + (setq start (line-beginning-position)) + ;; Make sure we change at least one char (in case of deletions). + (setq end (min (max end (1+ start)) (point-max))) + ;; Request refontification. + (put-text-property start end 'fontified nil)) + ;; Mark the change for deferred contextual refontification. + (when jit-lock-first-unfontify-pos + (setq jit-lock-first-unfontify-pos + (min jit-lock-first-unfontify-pos start)))))) (provide 'jit-lock)