Mercurial > emacs

comparison lisp/font-lock.el @ 72311:4501a3a3a336

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(font-lock-extend-jit-lock-region-after-change): Better comment.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 07 Aug 2006 18:24:25 +0000
parents e5f74bc78986
children f60405031861 7f3f771c85fa
comparison
equal deleted inserted replaced
72310:e45c648eb3ad 72311:4501a3a3a336
1194 ;; font-lock-after-change-function could/should also do that, but it 1194 ;; font-lock-after-change-function could/should also do that, but it
1195 ;; doesn't need to because font-lock-default-fontify-region does 1195 ;; doesn't need to because font-lock-default-fontify-region does
1196 ;; it anyway. Here OTOH we have no guarantee that 1196 ;; it anyway. Here OTOH we have no guarantee that
1197 ;; font-lock-default-fontify-region will be executed on this region 1197 ;; font-lock-default-fontify-region will be executed on this region
1198 ;; any time soon. 1198 ;; any time soon.
1199 ;; Note: contrary to font-lock-default-fontify-region, we do not do
1200 ;; any loop here because we are not looking for a safe spot: we just
1201 ;; mark the text whose appearance may need to change as a result of
1202 ;; the buffer modification.
1199 (when (and (> beg (point-min)) 1203 (when (and (> beg (point-min))
1200 (get-text-property (1- beg) 'font-lock-multiline)) 1204 (get-text-property (1- beg) 'font-lock-multiline))
1201 (setq beg (or (previous-single-property-change 1205 (setq beg (or (previous-single-property-change
1202 beg 'font-lock-multiline) 1206 beg 'font-lock-multiline)
1203 (point-min)))) 1207 (point-min))))