Mercurial > emacs
changeset 20327:5f8d36dfb126
(ange-ftp-generate-passwd-key):
Downcase the host name
(ange-ftp-passwd-hashtable): Doc fix.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Sun, 23 Nov 1997 02:16:13 +0000 |
| parents | 4b604d468d05 |
| children | 000f4d300712 |
| files | lisp/ange-ftp.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ange-ftp.el Sun Nov 23 02:14:14 1997 +0000 +++ b/lisp/ange-ftp.el Sun Nov 23 02:16:13 1997 +0000 @@ -1001,7 +1001,8 @@ "Hash table holding associations between HOST, USER pairs.") (defvar ange-ftp-passwd-hashtable (ange-ftp-make-hashtable) - "Mapping between a HOST, USER pair and a PASSWORD for them.") + "Mapping between a HOST, USER pair and a PASSWORD for them. +All HOST values should be in lower case.") (defvar ange-ftp-account-hashtable (ange-ftp-make-hashtable) "Mapping between a HOST, USER pair and a ACCOUNT password for them.") @@ -1139,7 +1140,7 @@ (or pass default ""))) (defmacro ange-ftp-generate-passwd-key (host user) - (` (concat (, host) "/" (, user)))) + (` (concat (downcase (, host)) "/" (, user)))) (defmacro ange-ftp-lookup-passwd (host user) (` (ange-ftp-get-hash-entry (ange-ftp-generate-passwd-key (, host) (, user))