]> git.eshelyaron.com Git - emacs.git/commitdiff
* lisp/net/tramp-gvfs.el (tramp-gvfs-handle-file-system-info): Fix error.
authorMichael Albinus <michael.albinus@gmx.de>
Wed, 5 Feb 2020 10:40:06 +0000 (11:40 +0100)
committerMichael Albinus <michael.albinus@gmx.de>
Wed, 5 Feb 2020 10:40:06 +0000 (11:40 +0100)
lisp/net/tramp-gvfs.el

index 2c117fe630b9ef855b10f5c1764320bf3583541a..6e116731b7afc89dec5d85b72a6142b6e9136c58 100644 (file)
@@ -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."