Function: gnus-put-text-property-excluding-characters-with-faces

gnus-put-text-property-excluding-characters-with-faces is a byte-compiled function defined in gnus-util.el.gz.

Signature

(gnus-put-text-property-excluding-characters-with-faces BEG END PROP VAL)

Documentation

The same as put-text-property, except where gnus-face is set.

If so, and PROP is face, set the second element of its value to VAL. Otherwise, do nothing.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-util.el.gz
(defun gnus-put-text-property-excluding-characters-with-faces (beg end prop val)
  "The same as `put-text-property', except where `gnus-face' is set.
If so, and PROP is `face', set the second element of its value to VAL.
Otherwise, do nothing."
  (while (< beg end)
    ;; Property values are compared with `eq'.
    (let ((stop (next-single-property-change beg 'face nil end)))
      (if (get-text-property beg 'gnus-face)
	  (when (eq prop 'face)
	    (setcar (cdr (get-text-property beg 'face)) (or val 'default)))
	(inline
	  (put-text-property beg stop prop val)))
      (setq beg stop))))