Mercurial > emacs
comparison lisp/ange-ftp.el @ 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 | cb48dd203293 |
| children | a68e24bdc522 |
comparison
equal
deleted
inserted
replaced
| 20326:4b604d468d05 | 20327:5f8d36dfb126 |
|---|---|
| 999 | 999 |
| 1000 (defvar ange-ftp-user-hashtable (ange-ftp-make-hashtable) | 1000 (defvar ange-ftp-user-hashtable (ange-ftp-make-hashtable) |
| 1001 "Hash table holding associations between HOST, USER pairs.") | 1001 "Hash table holding associations between HOST, USER pairs.") |
| 1002 | 1002 |
| 1003 (defvar ange-ftp-passwd-hashtable (ange-ftp-make-hashtable) | 1003 (defvar ange-ftp-passwd-hashtable (ange-ftp-make-hashtable) |
| 1004 "Mapping between a HOST, USER pair and a PASSWORD for them.") | 1004 "Mapping between a HOST, USER pair and a PASSWORD for them. |
| 1005 All HOST values should be in lower case.") | |
| 1005 | 1006 |
| 1006 (defvar ange-ftp-account-hashtable (ange-ftp-make-hashtable) | 1007 (defvar ange-ftp-account-hashtable (ange-ftp-make-hashtable) |
| 1007 "Mapping between a HOST, USER pair and a ACCOUNT password for them.") | 1008 "Mapping between a HOST, USER pair and a ACCOUNT password for them.") |
| 1008 | 1009 |
| 1009 (defvar ange-ftp-files-hashtable (ange-ftp-make-hashtable 97) | 1010 (defvar ange-ftp-files-hashtable (ange-ftp-make-hashtable 97) |
| 1137 (message "") | 1138 (message "") |
| 1138 (ange-ftp-repaint-minibuffer) | 1139 (ange-ftp-repaint-minibuffer) |
| 1139 (or pass default ""))) | 1140 (or pass default ""))) |
| 1140 | 1141 |
| 1141 (defmacro ange-ftp-generate-passwd-key (host user) | 1142 (defmacro ange-ftp-generate-passwd-key (host user) |
| 1142 (` (concat (, host) "/" (, user)))) | 1143 (` (concat (downcase (, host)) "/" (, user)))) |
| 1143 | 1144 |
| 1144 (defmacro ange-ftp-lookup-passwd (host user) | 1145 (defmacro ange-ftp-lookup-passwd (host user) |
| 1145 (` (ange-ftp-get-hash-entry (ange-ftp-generate-passwd-key (, host) (, user)) | 1146 (` (ange-ftp-get-hash-entry (ange-ftp-generate-passwd-key (, host) (, user)) |
| 1146 ange-ftp-passwd-hashtable))) | 1147 ange-ftp-passwd-hashtable))) |
| 1147 | 1148 |