[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: tiny patch to ange-ftp
From: |
Katsumi Yamaoka |
Subject: |
Re: tiny patch to ange-ftp |
Date: |
Sat, 01 Oct 2005 21:23:05 +0900 |
User-agent: |
Gnus/5.110004 (No Gnus v0.4) Emacs/22.0.50 (gnu/linux) |
>>>>> In <address@hidden>
>>>>> Stefan Monnier <address@hidden> wrote:
> I've installed my change. Sorry again for the delay.
I rebuilt Emacs. However, I still could not upload files with
another problem. `ange-ftp-insert-directory' passes a file name
without directory components to `ange-ftp-get-file-entry' then.
So, the following change seems to be required (I confirmed it
did the trick):
*** ange-ftp.el~ Sat Oct 1 10:46:12 2005
--- ange-ftp.el Sat Oct 1 12:21:20 2005
***************
*** 2972,2982 ****
(file (ange-ftp-get-file-part name)))
(if ent
(gethash file ent)
! (or (and (ange-ftp-allow-child-lookup dir file)
(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)
--- 2972,2984 ----
(file (ange-ftp-get-file-part name)))
(if ent
(gethash file ent)
! (or (and dir
! (ange-ftp-allow-child-lookup dir file)
(setq ent (ange-ftp-get-files name t))
(gethash "." ent))
;; i.e. it's a directory by child lookup
! (and dir
! (setq ent (ange-ftp-get-files dir t))
(gethash file ent))))))
(defun ange-ftp-internal-delete-file-entry (name &optional dir-p)
- Re: tiny patch to ange-ftp,
Katsumi Yamaoka <=