diff options
author | Michael Albinus <michael.albinus@gmx.de> | 2010-01-29 17:23:25 +0100 |
---|---|---|
committer | Michael Albinus <michael.albinus@gmx.de> | 2010-01-29 17:23:25 +0100 |
commit | e5c70c411776fb6e8cc29bc155d1f1584933268b (patch) | |
tree | 8f55bb6c8cd117109ee5e3210aede198cf6d55b0 | |
parent | af93af83df6af83408f5940d017baf8637ec1bf1 (diff) | |
download | emacs-e5c70c411776fb6e8cc29bc155d1f1584933268b.tar.gz |
* net/tramp.el (tramp-handle-insert-directory): Handle also
symlinks, when FILENAME is not in `default-directory'.
-rw-r--r-- | lisp/ChangeLog | 7 | ||||
-rw-r--r-- | lisp/net/tramp.el | 2 |
2 files changed, 8 insertions, 1 deletions
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 <michael.albinus@gmx.de> + + * net/tramp.el (tramp-handle-insert-directory): Handle also + symlinks, when FILENAME is not in `default-directory'. + 2010-01-28 Michael Albinus <michael.albinus@gmx.de> * 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))) "." |