Function: consult--copy-property

consult--copy-property is a byte-compiled function defined in consult.el.

Signature

(consult--copy-property BEG END STR PROP)

Documentation

Copy PROP from buffer region BEG to END to STR.

The string STR is modified.

Source Code

;; Defined in ~/.emacs.d/elpa/consult-20260805.1130/consult.el
(defsubst consult--copy-property (beg end str prop)
  "Copy PROP from buffer region BEG to END to STR.
The string STR is modified."
  (let ((pos beg))
    (while (< pos end)
      (let ((next (next-single-property-change pos prop nil end))
            (val (get-text-property pos prop)))
        (when val
          (if (eq prop 'face)
              (add-face-text-property (- pos beg) (- next beg) val t str)
            (put-text-property (- pos beg) (- next beg) prop val str)))
        (setq pos next)))))