[Emacs-diffs] master f7b5e7d 2/3: Handle symbolic links properly in Tramp gfvs methods

[Michael Albinus]

branch: master
commit f7b5e7d72d1648831fca3fc79cb134eab3407aa1
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    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 f10476a..b9b6b4b 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.