Function: font-lock-extend-region-multiline

font-lock-extend-region-multiline is a byte-compiled function defined in font-lock.el.gz.

Signature

(font-lock-extend-region-multiline)

Documentation

Move fontification boundaries away from any font-lock-multiline property.

Source Code

;; Defined in /usr/src/emacs/lisp/font-lock.el.gz
;; Mark it as a special hook which doesn't use any global setting
;; (i.e. doesn't obey the element t in the buffer-local value).

(defun font-lock-extend-region-multiline ()
  "Move fontification boundaries away from any `font-lock-multiline' property."
  (let ((changed nil))
    (when (and (> font-lock-beg (point-min))
               (get-text-property (1- font-lock-beg) 'font-lock-multiline))
      (setq changed t)
      (setq font-lock-beg (or (previous-single-property-change
                               font-lock-beg 'font-lock-multiline)
                              (point-min))))
    ;;
    (when (get-text-property font-lock-end 'font-lock-multiline)
      (setq changed t)
      (setq font-lock-end (or (text-property-any font-lock-end (point-max)
                                                 'font-lock-multiline nil)
                              (point-max))))
    changed))