Function: auth-source--aput-1

auth-source--aput-1 is a byte-compiled function defined in auth-source.el.gz.

Signature

(auth-source--aput-1 ALIST KEY VAL)

Source Code

;; Defined in /usr/src/emacs/lisp/auth-source.el.gz
(defun auth-source--aput-1 (alist key val)
  (let ((seen ())
        (rest alist))
    (while (and (consp rest) (not (equal key (caar rest))))
      (push (pop rest) seen))
    (cons (cons key val)
          (if (null rest) alist
            (nconc (nreverse seen)
                   (if (equal key (caar rest)) (cdr rest) rest))))))