Mercurial > emacs

changeset 57509:e5a1e83cfb02

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(url-basic-auth, url-digest-auth): Use read-passwd.
author Richard M. Stallman <rms@gnu.org>
date Sat, 16 Oct 2004 14:54:58 +0000
parents 22f6e207e697
children 9f80571c6c3e
files lisp/url/url-auth.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/url/url-auth.el	Sat Oct 16 14:51:39 2004 +0000
+++ b/lisp/url/url-auth.el	Sat Oct 16 14:54:58 2004 +0000
@@ -78,7 +78,7 @@
      ((and prompt (not byserv))
       (setq user (read-string (url-auth-user-prompt url realm)
 			      (user-real-login-name))
-	    pass (funcall url-passwd-entry-func "Password: "))
+	    pass (read-passwd "Password: "))
       (set url-basic-auth-storage
 	   (cons (list server
 		       (cons path
@@ -102,7 +102,7 @@
 	  (progn
 	    (setq user (read-string (url-auth-user-prompt url realm)
 				    (user-real-login-name))
-		  pass (funcall url-passwd-entry-func "Password: ")
+		  pass (read-passwd "Password: ")
 		  retval (base64-encode-string (format "%s:%s" user pass))
 		  byserv (assoc server (symbol-value url-basic-auth-storage)))
 	    (setcdr byserv
@@ -160,7 +160,7 @@
 	 ((and prompt (not byserv))
 	  (setq user (read-string (url-auth-user-prompt url realm)
 				  (user-real-login-name))
-		pass (funcall url-passwd-entry-func "Password: ")
+		pass (read-passwd "Password: ")
 		url-digest-auth-storage
 		(cons (list server
 			    (cons path
@@ -187,7 +187,7 @@
 	      (progn
 		(setq user (read-string (url-auth-user-prompt url realm)
 					(user-real-login-name))
-		      pass (funcall url-passwd-entry-func "Password: ")
+		      pass (read-passwd "Password: ")
 		      retval (setq retval
 				   (cons user
 					 (url-digest-auth-create-key