From e5c70c411776fb6e8cc29bc155d1f1584933268b Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Fri, 29 Jan 2010 17:23:25 +0100 Subject: [PATCH] * net/tramp.el (tramp-handle-insert-directory): Handle also symlinks, when FILENAME is not in `default-directory'. --- lisp/ChangeLog | 7 ++++++- lisp/net/tramp.el | 2 ++ 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 03617962164..f8edcd6f38e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,7 +1,12 @@ +2010-01-29 Michael Albinus + + * net/tramp.el (tramp-handle-insert-directory): Handle also + symlinks, when FILENAME is not in `default-directory'. + 2010-01-28 Michael Albinus * net/ange-ftp.el (ange-ftp-insert-directory): Handle the case, - FILENAME is not in `default-directory'. (Bug#5478) + FILE is not in `default-directory'. (Bug#5478) * net/tramp.el (tramp-handle-insert-directory): Simplify handling of SWITCHES. Handle the case, FILENAME is not in diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 9e8522f3db0..28a30155a66 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -4147,6 +4147,8 @@ This is like `dired-recursive-delete-directory' for Tramp files." ;; The inserted file could be from somewhere else. (when (and (not wildcard) (not full-directory-p)) (goto-char (point-max)) + (when (file-symlink-p filename) + (goto-char (search-backward "->" beg 'noerror))) (search-backward (if (zerop (length (file-name-nondirectory filename))) "." -- 2.39.2