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
;;; Backend specific parsing: netrc/authinfo backend

(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))))))