]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix symlink flag in tramp-gvfs-handle-file-attributes
authorMichael Albinus <michael.albinus@gmx.de>
Sat, 18 Nov 2017 14:08:32 +0000 (15:08 +0100)
committerMichael Albinus <michael.albinus@gmx.de>
Sat, 18 Nov 2017 14:08:32 +0000 (15:08 +0100)
* lisp/net/tramp-gvfs.el (tramp-gvfs-handle-file-attributes):
Set proper symlink file mode flag.

lisp/net/tramp-gvfs.el

index 709ea4670a89241a4263a557dfe38b590eb979b3..424e77b0eba0ffc5318adb3d777ce692b0e0d1c2 100644 (file)
@@ -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")