Function: url-digest-prompt-creds

url-digest-prompt-creds is a byte-compiled function defined in url-auth.el.gz.

Signature

(url-digest-prompt-creds URL REALM &optional CREDS)

Documentation

Prompt credentials for URL and REALM, defaulting to CREDS.

CREDS is a plist that may have properties :user and :secret.

Source Code

;; Defined in /usr/src/emacs/lisp/url/url-auth.el.gz
(defun url-digest-prompt-creds (url realm &optional creds)
  "Prompt credentials for URL and REALM, defaulting to CREDS.
CREDS is a plist that may have properties `:user' and `:secret'."
  ;; Set explicitly in case creds were nil.  This makes the second
  ;; plist-put modify the same plist.
  (setq creds
        (plist-put creds :user
                   (and (url-interactive-p)
                        (read-string (url-auth-user-prompt url realm)
                                     (or (plist-get creds :user)
                                         (user-real-login-name))))))
  (plist-put creds :secret
             (and (url-interactive-p)
                  (read-passwd "Password: " nil (plist-get creds :secret)))))