diff options
| -rw-r--r-- | lisp/net/tramp-gvfs.el | 6 |
1 files changed, 6 insertions, 0 deletions
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." | |||
| 1261 | (with-tramp-file-property v localname "file-readable-p" | 1261 | (with-tramp-file-property v localname "file-readable-p" |
| 1262 | (and (file-exists-p filename) | 1262 | (and (file-exists-p filename) |
| 1263 | (or (tramp-check-cached-permissions v ?r) | 1263 | (or (tramp-check-cached-permissions v ?r) |
| 1264 | ;; `tramp-check-cached-permissions' doesn't handle | ||
| 1265 | ;; symbolic links. | ||
| 1266 | (and (stringp (file-symlink-p filename)) | ||
| 1267 | (file-readable-p | ||
| 1268 | (concat | ||
| 1269 | (file-remote-p filename) (file-symlink-p filename)))) | ||
| 1264 | ;; If the user is different from what we guess to be | 1270 | ;; If the user is different from what we guess to be |
| 1265 | ;; the user, we don't know. Let's check, whether | 1271 | ;; the user, we don't know. Let's check, whether |
| 1266 | ;; access is restricted explicitly. | 1272 | ;; access is restricted explicitly. |