Function: hproperty:char-property-range

hproperty:char-property-range is a byte-compiled function defined in hproperty.el.

Signature

(hproperty:char-property-range POS PROPERTY &optional VALUE)

Documentation

Return a char-property range (start . end) at POS where PROPERTY = VALUE.

Return nil if no such range. If POS is nil, use point. VALUE is optional; if omitted, use the first char-property at POS with PROPERTY.

Source Code

;; Defined in ~/.emacs.d/elpa/hyperbole-20260414.325/hproperty.el
(defun hproperty:char-property-range (pos property &optional value)
  "Return a char-property range (start . end) at POS where PROPERTY = VALUE.
Return nil if no such range.  If POS is nil, use point.
VALUE is optional; if omitted, use the first char-property at POS with PROPERTY."
  (unless pos (setq pos (point)))
  (let ((start pos)
        (end pos)
	val)
    (when (or (null value)
	      (eq value (setq val (hproperty:char-property-contains-p pos property value))))
      (setq start (hproperty:char-property-start pos property val)
	    end   (hproperty:char-property-end   pos property val)))
    (unless (or (null start) (null end) (= start end))
      (cons start end))))