From: Michael Albinus <michael.albinus@gmx.de>
Date: Mon, 12 Aug 2019 14:18:17 +0000 (+0200)
Subject: Handle symbolic links properly in Tramp gfvs methods
X-Git-Tag: emacs-27.0.90~1641
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f7b5e7d72d1648831fca3fc79cb134eab3407aa1;p=emacs.git

Handle symbolic links properly in Tramp gfvs methods

* lisp/net/tramp-gvfs.el (tramp-gvfs-handle-file-readable-p):
Handle symbolic links.
---

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.