Mercurial > emacs
diff lisp/net/tramp.el @ 107628:16554eec2238
Merge from mainline.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Sat, 30 Jan 2010 08:50:39 -0500 |
parents | 28bc861d56c5 |
children | d7831d04952b |
line wrap: on
line diff
--- a/lisp/net/tramp.el Fri Jan 29 06:13:16 2010 -0500 +++ b/lisp/net/tramp.el Sat Jan 30 08:50:39 2010 -0500 @@ -4147,6 +4147,8 @@ ;; 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))) "."