diff options
Diffstat (limited to 'lisp/net/ange-ftp.el')
| -rw-r--r-- | lisp/net/ange-ftp.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index 35447f19569..bd9a432af7d 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -2968,7 +2968,8 @@ this also returns nil." (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))) |