Changeset 4169 for trunk/lisp/jit-lock.el
- Timestamp:
- 09/30/06 09:12:06 (2 years ago)
- Files:
-
- trunk/lisp (modified) (1 prop)
- trunk/lisp/jit-lock.el (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/lisp
- Property svn:ignore changed from
*.elc
MANIFEST
Makefile
Makefile.unix
makefile
elc.tar.gz
cus-load.el
finder-inf.el
subdirs.el
loaddefs.el
to
*.elc
MANIFEST
Makefile
Makefile.unix
makefile
elc.tar.gz
cus-load.el
finder-inf.el
subdirs.el
loaddefs.el
pre-mh-loaddefs.el-CMD
- Property svn:ignore changed from
trunk/lisp/jit-lock.el
r4166 r4169 350 350 ;; chunk is either `end', or the start of a region 351 351 ;; before `end' that has already been fontified. 352 (while start352 (while (and start (< start end)) 353 353 ;; Determine the end of this chunk. 354 354 (setq next (or (text-property-any start end 'fontified t) … … 398 398 ;; jit-lock-after-change-extend-region-functions. 399 399 (when (< start orig-start) 400 (run-with-timer 0 nil 'jit-lock-fo ntify-again400 (run-with-timer 0 nil 'jit-lock-force-redisplay 401 401 (current-buffer) start orig-start)) 402 402 … … 404 404 (setq start (text-property-any next end 'fontified nil)))))))) 405 405 406 (defun jit-lock-fo ntify-again(buf start end)407 "Fo ntify inbuffer BUF from START to END."406 (defun jit-lock-force-redisplay (buf start end) 407 "Force the display engine to re-render buffer BUF from START to END." 408 408 (with-current-buffer buf 409 409 (with-buffer-prepared-for-jit-lock 410 ;; Don't cause refontification (it's already been done), but just do 411 ;; some random buffer change, so as to force redisplay. 410 412 (put-text-property start end 'fontified t)))) 411 413
