[Emacs-diffs] Changes to emacs/lisp/net/ange-ftp.el

[David Kastrup]

Index: emacs/lisp/net/ange-ftp.el
diff -c emacs/lisp/net/ange-ftp.el:1.42 emacs/lisp/net/ange-ftp.el:1.43
*** emacs/lisp/net/ange-ftp.el:1.42     Mon Aug  5 12:26:48 2002
--- emacs/lisp/net/ange-ftp.el  Wed Aug 14 18:43:46 2002
***************
*** 2968,2974 ****
  (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))))
      (maphash
       (lambda (key val)
         (let ((parsed (ange-ftp-ftp-name key)))
--- 2968,2975 ----
  (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 (hash-table-size
!                                        ange-ftp-files-hashtable))))
      (maphash
       (lambda (key val)
         (let ((parsed (ange-ftp-ftp-name key)))