From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Andrew Koenig Newsgroups: gmane.emacs.help Subject: Re: ange-ftp appears to have trouble with symbolic links to directories Date: Sat, 1 Feb 2003 04:16:21 GMT Organization: AT&T Shannon Laboratory, Florham Park, NJ Sender: help-gnu-emacs-bounces+gnu-help-gnu-emacs=m.gmane.org@gnu.org Message-ID: References: <5lhebo6c1t.fsf@rum.cs.yale.edu> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1044073440 14763 80.91.224.249 (1 Feb 2003 04:24:00 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sat, 1 Feb 2003 04:24:00 +0000 (UTC) Return-path: Original-Received: from monty-python.gnu.org ([199.232.76.173]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 18epCB-0003py-00 for ; Sat, 01 Feb 2003 05:23:59 +0100 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.10.13) id 18epDT-0006vd-04 for gnu-help-gnu-emacs@m.gmane.org; Fri, 31 Jan 2003 23:25:19 -0500 Original-Newsgroups: gnu.emacs.help Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!newshosting.com!news-xfer1.atl.newshosting.com!uunet!dca.uu.net!ash.uu.net!news.research.att.com!nntp X-Nntp-Posting-Host: europa.research.att.com User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.2 Original-Lines: 26 Original-Xref: shelby.stanford.edu gnu.emacs.help:109677 Original-To: help-gnu-emacs@gnu.org X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1b5 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Help: List-Post: List-Subscribe: , List-Archive: List-Unsubscribe: , Errors-To: help-gnu-emacs-bounces+gnu-help-gnu-emacs=m.gmane.org@gnu.org Xref: main.gmane.org gmane.emacs.help:6192 X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:6192 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