Function: org-find-text-property-region

org-find-text-property-region is a byte-compiled function defined in org-macs.el.gz.

Signature

(org-find-text-property-region POS PROP)

Documentation

Find a region around POS containing same non-nil value of PROP text property.

Return nil when PROP is not set at POS.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-macs.el.gz
(defun org-find-text-property-region (pos prop)
  "Find a region around POS containing same non-nil value of PROP text property.
Return nil when PROP is not set at POS."
  (let* ((beg (and (get-text-property pos prop) pos))
	 (end beg))
    (when beg
      (unless (or (equal beg (point-min))
		  (not (eq (get-text-property beg prop)
			 (get-text-property (1- beg) prop))))
	(setq beg (previous-single-property-change pos prop nil (point-min))))
      (unless (or (equal end (point-max))
		  ;; (not (eq (get-text-property end prop)
		  ;;     (get-text-property (1+ end) prop)))
		  )
	(setq end (next-single-property-change pos prop nil (point-max))))
      (cons beg end))))