Commit 2540a3ab authored by Vinicius Jose Latorre's avatar Vinicius Jose Latorre
Browse files

username and password default

parent 219d320a
2007-08-09 Edward O'Connor <> (tiny change)
* url/url-auth.el (url-basic-auth): When prompting for username
and password, default to the username and password in the URL.
2007-08-08 Stefan Monnier <>
* man.el: Remove spurious * in docstrings.
......@@ -68,7 +68,9 @@ instead of the pathname inheritance method."
(server (url-host href))
(port (url-port href))
(path (url-filename href))
user pass byserv retval data)
(user (url-user href))
(pass (url-password href))
byserv retval data)
(setq server (format "%s:%d" server port)
path (cond
(realm realm)
......@@ -79,8 +81,8 @@ instead of the pathname inheritance method."
((and prompt (not byserv))
(setq user (read-string (url-auth-user-prompt url realm)
pass (read-passwd "Password: "))
(or user (user-real-login-name)))
pass (read-passwd "Password: " nil (or pass "")))
(set url-basic-auth-storage
(cons (list server
(cons path
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment