[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/net/ange-ftp.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/net/ange-ftp.el |
Date: |
Fri, 04 Apr 2003 01:22:41 -0500 |
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
- [Emacs-diffs] Changes to emacs/lisp/net/ange-ftp.el,
Miles Bader <=