From: Lars Ingebrigtsen Date: Wed, 15 May 2019 05:34:35 +0000 (+0200) Subject: Don't have url-basic-auth bug out when called with an URL string X-Git-Tag: emacs-27.0.90~2887 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ceed3d7557a93ae1a231c65c08ac787a10b8bad7;p=emacs.git 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 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)