Lines Matching refs:start
316 (defun jit-lock-function (start)
323 (jit-lock-fontify-now start (+ start jit-lock-chunk-size))
330 (put-text-property start
332 start 'fontified nil
333 (min (point-max) (+ start jit-lock-chunk-size)))
336 (defun jit-lock-fontify-now (&optional start end)
341 (unless start (setq start (point-min)))
348 ;; from the end of a buffer to its start, can do repeated
351 (let ((orig-start start) next)
354 ;; chunk is either `end', or the start of a region
356 (while (and start (< start end))
358 (setq next (or (text-property-any start end 'fontified t)
364 ;; Until someone has a better idea, let's start
365 ;; at the start of the line containing START and
366 ;; stop at the start of the line following NEXT.
368 (goto-char start) (setq start (line-beginning-position))
374 (>= jit-lock-context-unfontify-pos start)
379 (not (get-text-property start 'jit-lock-defer-multiline)))
385 (put-text-property start next 'fontified t)
387 (run-hook-with-args 'jit-lock-functions start next)
391 (quit (put-text-property start next 'fontified nil)
395 ;; `orig-start' and won't notice if the above jit-lock-functions
397 ;; to that. So if `start' is before `orig-start', we need to
403 (when (< start orig-start)
405 (current-buffer) start orig-start))
407 ;; Find the start of the next chunk, if any.
408 (setq start (text-property-any next end 'fontified nil))))))))
410 (defun jit-lock-force-redisplay (buf start end)
416 (put-text-property start end 'fontified t))))
423 (defsubst jit-lock-stealth-chunk-start (around)
424 "Return the start of the next chunk to fontify around position AROUND..
434 (start (cond
437 ;; and the start of the buffer. If PROP is
445 ;; PREV is the start of a region of fontified
453 ;; PREV is the start of a region of unfontified
458 (result (cond ((null start) next)
459 ((null next) start)
460 ((< (- around start) (- next around)) start)
484 start)
492 (setq start (jit-lock-stealth-chunk-start (point))))
498 (jit-lock-fontify-now start
499 (+ start jit-lock-chunk-size))
576 (defvar jit-lock-start) (defvar jit-lock-end) ; Dynamically scoped variables.
582 the variables `jit-lock-start' and `jit-lock-end'.
589 (defun jit-lock-after-change (start end old-len)
592 START and END are the start and end of the changed text. OLD-LEN
598 (let ((jit-lock-start start)
602 start end old-len)
604 (setq jit-lock-end (min (max jit-lock-end (1+ start)) (point-max)))
606 (put-text-property jit-lock-start jit-lock-end 'fontified nil))
610 ;; Here we use `start' because nothing guarantees that the
611 ;; text between start and end will be otherwise refontified:
615 (min jit-lock-context-unfontify-pos jit-lock-start))))))