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

[Miles Bader]

Index: emacs/lisp/net/ange-ftp.el
diff -c emacs/lisp/net/ange-ftp.el:1.47 emacs/lisp/net/ange-ftp.el:1.48
*** emacs/lisp/net/ange-ftp.el:1.47     Tue Feb  4 08:17:16 2003
--- emacs/lisp/net/ange-ftp.el  Sat Feb 15 10:41:33 2003
***************
*** 2938,2944 ****
               (setq ent (ange-ftp-get-files name t))
               (gethash "." ent))
          ;; i.e. it's a directory by child lookup
!         (gethash file (ange-ftp-get-files dir))))))
  
  (defun ange-ftp-internal-delete-file-entry (name &optional dir-p)
    (when dir-p
--- 2938,2945 ----
               (setq ent (ange-ftp-get-files name t))
               (gethash "." ent))
          ;; i.e. it's a directory by child lookup
!         (and (setq ent (ange-ftp-get-files dir t))
!              (gethash file ent))))))
  
  (defun ange-ftp-internal-delete-file-entry (name &optional dir-p)
    (when dir-p