diff options
| author | Karl Heuer <kwzh@gnu.org> | 1997-11-23 02:16:13 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1997-11-23 02:16:13 +0000 |
| commit | 7e7dab81236eb810834191298fdc68585c192ec1 (patch) | |
| tree | a0f62aad5835edb313272ff5d11d200be6d04695 /lisp | |
| parent | fcae1b4cb25fd252f2cac5b2a84b9390c0ae9d9f (diff) | |
| download | emacs-7e7dab81236eb810834191298fdc68585c192ec1.tar.gz | |
(ange-ftp-generate-passwd-key):
Downcase the host name
(ange-ftp-passwd-hashtable): Doc fix.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ange-ftp.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index a3c6c74c6f6..8b09c7f45e7 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -1001,7 +1001,8 @@ SIZE, if supplied, should be a prime number." "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 @@ Optional DEFAULT is password to start with." (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)) |