[Emacs-diffs] master ceed3d7: Don't have url-basic-auth bug out when called with an URL string

[Lars Ingebrigtsen]

branch: master
commit ceed3d7557a93ae1a231c65c08ac787a10b8bad7
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    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.
---
 lisp/url/url-auth.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/url/url-auth.el b/lisp/url/url-auth.el
index f644787..beed7c6 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)