* lisp/net/tramp.el (tramp-handle-access-file): Use `file-truename'.

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index d0d8f276ca20bbd6f3d7a62655578d203e635c2a..2a60aff383b5858b3fd18b193d4701660061ef78 100644 (file)
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -2970,7 +2970,7 @@ User is always nil."
 
 (defun tramp-handle-access-file (filename string)
   "Like `access-file' for Tramp files."
-  (unless (file-readable-p filename)
+  (unless (file-readable-p (file-truename filename))
     (tramp-error
      (tramp-dissect-file-name filename) tramp-file-missing
      "%s: No such file or directory %s" string filename)))