Function: gnus-add-text-properties-when

gnus-add-text-properties-when is a byte-compiled function defined in gnus-util.el.gz.

Signature

(gnus-add-text-properties-when PROPERTY VALUE START END PROPERTIES &optional OBJECT)

Documentation

Like add-text-properties, only applied on where PROPERTY is VALUE.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-util.el.gz
(defun gnus-add-text-properties-when
  (property value start end properties &optional object)
  "Like `add-text-properties', only applied on where PROPERTY is VALUE."
  (let (point)
    (while (and start
		(< start end) ;; XEmacs will loop for every when start=end.
		(setq point (text-property-not-all start end property value)))
      (add-text-properties start point properties object)
      (setq start (text-property-any point end property value)))
    (if start
	(add-text-properties start end properties object))))