mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

(ange-ftp-wipe-file-entries): Fix type mismatch;

Browse Source 
use `hash-table-size' instead of `length'.
This commit is contained in:
David Kastrup 2002-08-14 22:43:46 +00:00
parent 90dd78256d
commit 7adee48a65
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/net/ange-ftp.el
View File

@ -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)))