Function: erc-track--massage-nick-button-faces

erc-track--massage-nick-button-faces is a byte-compiled function defined in erc-track.el.gz.

Signature

(erc-track--massage-nick-button-faces SYM VAL &optional SET-FN)

Documentation

Transform VAL of face-list option SYM to have new defaults.

Use set-compatible SET-FN when given. If an update was performed, set the symbol property erc-track--obsolete-faces of SYM to t.

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc-track.el.gz
(defun erc-track--massage-nick-button-faces (sym val &optional set-fn)
  "Transform VAL of face-list option SYM to have new defaults.
Use `set'-compatible SET-FN when given.  If an update was
performed, set the symbol property `erc-track--obsolete-faces' of
SYM to t."
  (let* ((changedp nil)
         (new (mapcar
               (lambda (f)
                 (if (and (eq (car-safe f) 'erc-nick-default-face)
                          (equal f '(erc-nick-default-face erc-default-face)))
                     (progn
                       (setq changedp t)
                       (put sym 'erc-track--obsolete-faces t)
                       (cons 'erc-button-nick-default-face (cdr f)))
                   f))
               val)))
    (if set-fn
        (funcall set-fn sym (if changedp new val))
      (set-default sym (if changedp new val)))))