(url-basic-auth, url-digest-auth): Use read-passwd.

diff --git a/lisp/url/url-auth.el b/lisp/url/url-auth.el
index 39bb730bebc6aa3f8af8992c04e94bf19013c568..e92fdd1542ce81da602456a941da5dd604924897 100644 (file)
--- a/lisp/url/url-auth.el
+++ b/lisp/url/url-auth.el
@@ -78,7 +78,7 @@ instead of the pathname inheritance method."
      ((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 @@ instead of the pathname inheritance method."
          (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 @@ instead of hostname:portnum."
         ((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 @@ instead of hostname:portnum."
              (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