Function: filesets-alist-get

filesets-alist-get is a byte-compiled function defined in filesets.el.gz.

Signature

(filesets-alist-get ALIST KEY &optional DEFAULT CARP)

Documentation

Get KEY's value in the association list ALIST.

Return DEFAULT if not found. Return (car VALUE) if CARP is non-nil.

Source Code

;; Defined in /usr/src/emacs/lisp/filesets.el.gz
(defun filesets-alist-get (alist key &optional default carp)
  "Get KEY's value in the association list ALIST.
Return DEFAULT if not found.  Return (car VALUE) if CARP is non-nil."
  (let ((elt (assoc key alist)))
    (cond
      (elt
       (if carp
	   (cadr elt)
	 (cdr elt)))
      (default default)
      (t nil))))