diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2020-02-05 11:40:06 +0100 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2020-02-05 11:40:06 +0100 |
| commit | 1759b7d06acad918d439a3f4d25bd9aa77549dd1 (patch) | |
| tree | a292619d5eefd18cdbb335b82fd5ebac9a6783ba /lisp/net | |
| parent | 50068163680fcfbb741e73a6219798844157f6bd (diff) | |
| download | emacs-1759b7d06acad918d439a3f4d25bd9aa77549dd1.tar.gz emacs-1759b7d06acad918d439a3f4d25bd9aa77549dd1.tar.bz2 emacs-1759b7d06acad918d439a3f4d25bd9aa77549dd1.zip | |
* lisp/net/tramp-gvfs.el (tramp-gvfs-handle-file-system-info): Fix error.
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/tramp-gvfs.el | 9 |
1 files changed, 5 insertions, 4 deletions
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." |