diff options
| author | David Kastrup <dak@gnu.org> | 2002-08-14 22:43:46 +0000 |
|---|---|---|
| committer | David Kastrup <dak@gnu.org> | 2002-08-14 22:43:46 +0000 |
| commit | 7adee48a65a3b328e1113f1aa66e0c50381452ed (patch) | |
| tree | 786e4df4e0feaa4f0523537cabda6ab00383a2c6 | |
| parent | 90dd78256dfe25aecfcb4048f99d2b304a8cd33e (diff) | |
| download | emacs-7adee48a65a3b328e1113f1aa66e0c50381452ed.tar.gz | |
(ange-ftp-wipe-file-entries): Fix type mismatch;
use `hash-table-size' instead of `length'.
| -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))) |