Don't have url-basic-auth bug out when called with an URL string

* lisp/url/url-auth.el (url-basic-auth): Pass the parsed URL
object to the prompting function instead of the parameter that's
possibly a string (bug#26708).  Passing url-basic-auth with a
string parameter would fail if passed a non-parsed URL.

1 files changed, 2 insertions, 2 deletions

diff --git a/lisp/url/url-auth.el b/lisp/url/url-auth.el
index f644787cc64..beed7c6cb62 100644
--- a/lisp/url/url-auth.el
+++ b/lisp/url/url-auth.el
@@ -86,7 +86,7 @@ instead of the filename inheritance method."
      ((and prompt (not byserv))
       (setq user (or
                   (url-do-auth-source-search server type :user)
-                  (read-string (url-auth-user-prompt url realm)
+                  (read-string (url-auth-user-prompt href realm)
                                (or user (user-real-login-name))))
             pass (or
                   (url-do-auth-source-search server type :secret)
@@ -115,7 +115,7 @@ instead of the filename inheritance method."
           (progn
             (setq user (or
                         (url-do-auth-source-search server type :user)
-                        (read-string (url-auth-user-prompt url realm)
+                        (read-string (url-auth-user-prompt href realm)
                                      (user-real-login-name)))
                   pass (or
                         (url-do-auth-source-search server type :secret)