Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
2540a3ab
Commit
2540a3ab
authored
Aug 09, 2007
by
Vinicius Jose Latorre
Browse files
username and password default
parent
219d320a
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
10 additions
and
3 deletions
+10
-3
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/url/url-auth.el
lisp/url/url-auth.el
+5
-3
No files found.
lisp/ChangeLog
View file @
2540a3ab
2007-08-09 Edward O'Connor <hober0@gmail.com> (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 <monnier@iro.umontreal.ca>
* man.el: Remove spurious * in docstrings.
lisp/url/url-auth.el
View file @
2540a3ab
...
...
@@ -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."
(
cond
((
and
prompt
(
not
byserv
))
(
setq
user
(
read-string
(
url-auth-user-prompt
url
realm
)
(
user-real-login-name
))
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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment