From: Michael Albinus <michael.albinus@gmx.de>
Date: Wed, 5 Feb 2020 10:40:06 +0000 (+0100)
Subject: * lisp/net/tramp-gvfs.el (tramp-gvfs-handle-file-system-info): Fix error.
X-Git-Tag: emacs-28.0.90~7908^2~12
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1759b7d06acad918d439a3f4d25bd9aa77549dd1;p=emacs.git

* lisp/net/tramp-gvfs.el (tramp-gvfs-handle-file-system-info): Fix error.
---

diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el
index 2c117fe630b..6e116731b7a 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."