>>>>> In <[EMAIL PROTECTED]>
>>>>> Stefan Monnier <[EMAIL PROTECTED]> 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)
_______________________________________________
Emacs-devel mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-devel
