help-gnu-emacs
[Top][All Lists]
Advanced

[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


reply via email to

[Prev in Thread] Current Thread [Next in Thread]