Function: erc-put-text-properties

erc-put-text-properties is a byte-compiled function defined in erc.el.gz.

Signature

(erc-put-text-properties START END PROPERTIES &optional OBJECT VALUE-LIST)

Documentation

Set text-properties for OBJECT.

START and END describe positions in OBJECT. If VALUE-LIST is nil, set each property in PROPERTIES to t, else set each property to the corresponding value in VALUE-LIST.

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc.el.gz
(defun erc-put-text-properties (start end properties
                                      &optional object value-list)
  "Set text-properties for OBJECT.

START and END describe positions in OBJECT.
If VALUE-LIST is nil, set each property in PROPERTIES to t, else set
each property to the corresponding value in VALUE-LIST."
  (unless value-list
    (setq value-list (mapcar (lambda (_x) t)
                             properties)))
  (while (and properties value-list)
    (erc-put-text-property
     start end (pop properties) (pop value-list) object)))