Function: hproperty:char-property-start

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

Signature

(hproperty:char-property-start POS PROPERTY VALUE)

Documentation

From POS, return the start of text PROPERTY with VALUE overlapping POS.

Otherwise, return nil. Value must be a symbol.

Source Code

;; Defined in ~/.emacs.d/elpa/hyperbole-20260414.325/hproperty.el
(defun hproperty:char-property-start (pos property value)
  "From POS, return the start of text PROPERTY with VALUE overlapping POS.
Otherwise, return nil.  Value must be a symbol."
  (when-let* ((val (hproperty:char-property-contains-p pos property value))
	      (prev pos))
    ;; Can't use `previous-single-char-property-change' below
    ;; because it checks for any change in the property value, not
    ;; just if the property contains the value desired.
    (while (and (setq prev (1- prev))
		(>= prev (point-min))
		(hproperty:char-property-contains-p prev property value)))
    (max (1+ prev) (point-min))))