diff options
Diffstat (limited to 'lisp/jit-lock.el')
| -rw-r--r-- | lisp/jit-lock.el | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/lisp/jit-lock.el b/lisp/jit-lock.el index 6b142997f5c..d406189f684 100644 --- a/lisp/jit-lock.el +++ b/lisp/jit-lock.el @@ -426,14 +426,6 @@ will take place when text is fontified stealthily." (when jit-lock-mode (save-excursion (with-buffer-prepared-for-jit-lock - ;; If we're in text that matches a multi-line font-lock pattern, - ;; make sure the whole text will be redisplayed. - (when (and font-lock-multiline - (get-text-property start 'font-lock-multiline)) - (setq start (or (previous-single-property-change - start 'font-lock-multiline) - (point-min)))) - ;; 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 @@ -441,6 +433,13 @@ will take place when text is fontified stealthily." (goto-char start) (setq start (line-beginning-position)) + ;; If we're in text that matches a multi-line font-lock pattern, + ;; make sure the whole text will be redisplayed. + (when (get-text-property start 'font-lock-multiline) + (setq start (or (previous-single-property-change + start 'font-lock-multiline) + (point-min)))) + ;; Make sure we change at least one char (in case of deletions). (setq end (min (max end (1+ start)) (point-max))) ;; Request refontification. |