Mercurial > emacs
changeset 46892:6e8123be5cab
(ange-ftp-wipe-file-entries): Fix type mismatch;
use `hash-table-size' instead of `length'.
| author | David Kastrup <dak@gnu.org> |
|---|---|
| date | Wed, 14 Aug 2002 22:43:46 +0000 |
| parents | 068ef60069fb |
| children | cacb7b6cf530 |
| files | lisp/net/ange-ftp.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/net/ange-ftp.el Wed Aug 14 22:41:37 2002 +0000 +++ b/lisp/net/ange-ftp.el Wed Aug 14 22:43:46 2002 +0000 @@ -2968,7 +2968,8 @@ (defun ange-ftp-wipe-file-entries (host user) "Get rid of entry for HOST, USER pair from file entry information hashtable." (let ((new-tbl (make-hash-table :test 'equal - :size (length ange-ftp-files-hashtable)))) + :size (hash-table-size + ange-ftp-files-hashtable)))) (maphash (lambda (key val) (let ((parsed (ange-ftp-ftp-name key)))