Function: erc-banlist-store

erc-banlist-store is a byte-compiled function defined in erc.el.gz.

Signature

(erc-banlist-store PROC PARSED)

Documentation

Record ban entries for a channel.

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc.el.gz
;;; Ban manipulation

(defun erc-banlist-store (proc parsed)
  "Record ban entries for a channel."
  (pcase-let ((`(,channel ,mask ,whoset)
               (cdr (erc-response.command-args parsed))))
    ;; Determine to which buffer the message corresponds
    (let ((buffer (erc-get-buffer channel proc)))
      (with-current-buffer buffer
        (unless (member (cons whoset mask) erc-channel-banlist)
          (setq erc-channel-banlist (cons (cons whoset mask)
                                          erc-channel-banlist))))))
  nil)