X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/642eb8b6afa1c16b134d296ed90fd8fe59dc1d49..4c1f03efec55c103c97654af339f1dc2bb510b21:/lisp/net/tramp-compat.el

diff --git a/lisp/net/tramp-compat.el b/lisp/net/tramp-compat.el
index ca70c1384c..c5f1882931 100644
--- a/lisp/net/tramp-compat.el
+++ b/lisp/net/tramp-compat.el
@@ -471,7 +471,7 @@ element is not omitted."
 
      ;; Fallback, if there is no Lisp support yet.
      (t (let ((default-directory
-		(if (file-remote-p default-directory)
+		(if (tramp-tramp-file-p default-directory)
 		    (tramp-compat-temporary-file-directory)
 		  default-directory))
 	      (unix95 (getenv "UNIX95"))