From f7b5e7d72d1648831fca3fc79cb134eab3407aa1 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Mon, 12 Aug 2019 16:18:17 +0200 Subject: [PATCH] Handle symbolic links properly in Tramp gfvs methods * lisp/net/tramp-gvfs.el (tramp-gvfs-handle-file-readable-p): Handle symbolic links. --- lisp/net/tramp-gvfs.el | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el index f10476a7bc6..b9b6b4b6d18 100644 --- a/lisp/net/tramp-gvfs.el +++ b/lisp/net/tramp-gvfs.el @@ -1261,6 +1261,12 @@ file-notify events." (with-tramp-file-property v localname "file-readable-p" (and (file-exists-p filename) (or (tramp-check-cached-permissions v ?r) + ;; `tramp-check-cached-permissions' doesn't handle + ;; symbolic links. + (and (stringp (file-symlink-p filename)) + (file-readable-p + (concat + (file-remote-p filename) (file-symlink-p filename)))) ;; If the user is different from what we guess to be ;; the user, we don't know. Let's check, whether ;; access is restricted explicitly. -- 2.39.2