Mercurial > emacs
changeset 57515:f2c7aff145a0
(url-do-setup): Don't set url-passwd-entry-func.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 16 Oct 2004 15:02:46 +0000 |
| parents | c386726e02a5 |
| children | 3d3c9896482e |
| files | lisp/url/url.el |
| diffstat | 1 files changed, 0 insertions(+), 20 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/url/url.el Sat Oct 16 15:02:02 2004 +0000 +++ b/lisp/url/url.el Sat Oct 16 15:02:46 2004 +0000 @@ -113,26 +113,6 @@ noproxy "") "\\)")) url-proxy-services)))) - ;; Set the password entry funtion based on user defaults or guess - ;; based on which remote-file-access package they are using. - (cond - (url-passwd-entry-func nil) ; Already been set - ((fboundp 'read-passwd) ; Use secure password if available - (setq url-passwd-entry-func 'read-passwd)) - ((or (featurep 'efs) ; Using EFS - (featurep 'efs-auto)) ; or autoloading efs - (if (not (fboundp 'read-passwd)) - (autoload 'read-passwd "passwd" "Read in a password" nil)) - (setq url-passwd-entry-func 'read-passwd)) - ((or (featurep 'ange-ftp) ; Using ange-ftp - (and (boundp 'file-name-handler-alist) - (not (featurep 'xemacs)))) ; ?? - (setq url-passwd-entry-func 'ange-ftp-read-passwd)) - (t - (url-warn - 'security - "(url-setup): Can't determine how to read passwords, winging it."))) - (url-setup-privacy-info) (run-hooks 'url-load-hook) (setq url-setup-done t)))