From: Michael Albinus <michael.albinus@gmx.de>
Date: Sat, 18 Nov 2017 14:08:32 +0000 (+0100)
Subject: Fix symlink flag in tramp-gvfs-handle-file-attributes
X-Git-Tag: emacs-26.0.91~292
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=90075e8e1e6d6d7b6b49cb20ecdbb5d3de53d48b;p=emacs.git

Fix symlink flag in tramp-gvfs-handle-file-attributes

* lisp/net/tramp-gvfs.el (tramp-gvfs-handle-file-attributes):
Set proper symlink file mode flag.
---

diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el
index 709ea4670a8..424e77b0eba 100644
--- a/lisp/net/tramp-gvfs.el
+++ b/lisp/net/tramp-gvfs.el
@@ -992,7 +992,7 @@ If FILE-SYSTEM is non-nil, return file system attributes."
 		    (tramp-file-mode-from-int (string-to-number n))
 		  (format
 		   "%s%s%s%s------"
-		   (if dirp "d" "-")
+		   (if dirp "d" (if res-symlink-target "l" "-"))
 		   (if (equal (cdr (assoc "access::can-read" attributes))
 			      "FALSE")
 		       "-" "r")