master 1759b7d 1/3: * lisp/net/tramp-gvfs.el (tramp-gvfs-handle-file-system-info): Fix error.

[Michael Albinus]

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

    * lisp/net/tramp-gvfs.el (tramp-gvfs-handle-file-system-info): Fix error.
---
 lisp/net/tramp-gvfs.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el
index 2c117fe..6e11673 100644
--- a/lisp/net/tramp-gvfs.el
+++ b/lisp/net/tramp-gvfs.el
@@ -1521,10 +1521,11 @@ If FILE-SYSTEM is non-nil, return file system 
attributes."
           (size (cdr (assoc "filesystem::size" attr)))
           (used (cdr (assoc "filesystem::used" attr)))
           (free (cdr (assoc "filesystem::free" attr))))
-      (when (and (stringp size) (stringp used) (stringp free))
-       (list (string-to-number size)
-             (- (string-to-number size) (string-to-number used))
-             (string-to-number free))))))
+      (when (or size used free)
+       (list (string-to-number (or size "0"))
+             (string-to-number (or free "0"))
+             (- (string-to-number (or size "0"))
+                (string-to-number (or used "0"))))))))
 
 (defun tramp-gvfs-handle-make-directory (dir &optional parents)
   "Like `make-directory' for Tramp files."