Function: erc-compat--29-auth-source-pass-search

erc-compat--29-auth-source-pass-search is a byte-compiled function defined in erc-compat.el.gz.

Signature

(erc-compat--29-auth-source-pass-search &rest SPEC &key HOST USER PORT REQUIRE MAX &allow-other-keys)

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc-compat.el.gz
(cl-defun erc-compat--29-auth-source-pass-search
    (&rest spec &key host user port require max &allow-other-keys)
  ;; From `auth-source-pass-search'
  (cl-assert (and host (not (eq host t)))
             t "Invalid password-store search: %s %s")
  (let ((rv (erc-compat--29-auth-source-pass--build-result-many
             host user port require max)))
    (if (and (fboundp 'auth-source--obfuscate)
             (fboundp 'auth-source--deobfuscate))
        (let (out)
          (dolist (e rv out)
            (when-let* ((s (plist-get e :secret))
                        (v (auth-source--obfuscate s)))
              (setq e (plist-put e :secret (apply-partially
                                            #'auth-source--deobfuscate v))))
            (push e out)))
      rv)))