Fix problem in tramp-handle-substitute-in-file-name

* lisp/net/tramp.el (tramp-handle-substitute-in-file-name): Concat "/"
only for local file "~".

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 618d026abde56c7cbfe36d2756205d1f3bda9acb..bae039dba13933d8e5dc4e58ede89fea920bee80 100644 (file)
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -3564,7 +3564,7 @@ support symbolic links."
                  (concat (file-remote-p filename)
                          (substitute-in-file-name localname))))))
       ;; "/m:h:~" does not work for completion.  We use "/m:h:~/".
-      (if (string-match "~$" filename)
+      (if (string-match "^~$" localname)
          (concat filename "/")
        filename))))