[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: ange-ftp appears to have trouble with symbolic links to directories
From: |
Andrew Koenig |
Subject: |
Re: ange-ftp appears to have trouble with symbolic links to directories |
Date: |
Sat, 1 Feb 2003 04:16:21 GMT |
User-agent: |
Gnus/5.09 (Gnus v5.9.0) Emacs/21.2 |
Stefan> Wait, I think the patch below was the meat of it, can you try it ?
Doesn't seem to help. The relevant code now looks like this:
(defun ange-ftp-insert-directory (file switches &optional wildcard full)
(save-match-data
(let ((short (ange-ftp-abbreviate-filename file))
(parsed (ange-ftp-ftp-name (expand-file-name file)))
tem)
(if parsed
(if (and (not wildcard)
(setq tem (file-symlink-p (directory-file-name file))))
(ange-ftp-insert-directory
(ange-ftp-expand-symlink
tem (file-name-directory (directory-file-name file)))
switches wildcard full)
(insert
(if wildcard
(let ((default-directory (file-name-directory file)))
(ange-ftp-ls (file-name-nondirectory file)
switches nil nil t))
(ange-ftp-ls file switches full))))
(ange-ftp-real-insert-directory file switches wildcard full)))))
--
Andrew Koenig, ark@research.att.com, http://www.research.att.com/info/ark