Function: eshell--append-text-property

eshell--append-text-property is a byte-compiled function defined in em-prompt.el.gz.

Signature

(eshell--append-text-property START END PROP VALUE &optional OBJECT)

Documentation

Append to a text property from START to END.

PROP is the text property to append to, and VALUE is the list of property values to append. OBJECT is the object to propertize, as with put-text-property (which see).

If PROP's value is not a list at any position between START and END, this function leaves its value at those positions unchanged.

Source Code

;; Defined in /usr/src/emacs/lisp/eshell/em-prompt.el.gz
(defun eshell--append-text-property (start end prop value &optional object)
  "Append to a text property from START to END.
PROP is the text property to append to, and VALUE is the list of
property values to append.  OBJECT is the object to propertize, as with
`put-text-property' (which see).

If PROP's value is not a list at any position between START and END,
this function leaves its value at those positions unchanged."
  (let (next old-value)
    (while (< start end)
      (setq next (next-single-property-change start prop object end)
            old-value (get-text-property start prop object))
      (when (listp old-value)
        (put-text-property start next prop (append old-value value) object))
      (setq start next))))