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.

diff --git a/lisp/url/url-auth.el b/lisp/url/url-auth.el
index f644787cc6419a2f2d361f7ef87360fc0e4a6051..beed7c6cb62c0231dbffccb18be9934e7a25060d 100644 (file)
--- 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)