Function: gnus-alist-pull

gnus-alist-pull is a macro defined in gnus-util.el.gz.

Signature

(gnus-alist-pull KEY ALIST &optional ASSOC-P)

Documentation

Modify ALIST to be without KEY.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-util.el.gz
(defmacro gnus-alist-pull (key alist &optional assoc-p)
  "Modify ALIST to be without KEY."
  (unless (symbolp alist)
    (error "Not a symbol: %s" alist))
  (let ((fun (if assoc-p 'assoc 'assq)))
    `(setq ,alist (delq (,fun ,key ,alist) ,alist))))