diff options
| author | Michael Albinus | 2020-02-05 11:40:06 +0100 |
|---|---|---|
| committer | Michael Albinus | 2020-02-05 11:40:06 +0100 |
| commit | 1759b7d06acad918d439a3f4d25bd9aa77549dd1 (patch) | |
| tree | a292619d5eefd18cdbb335b82fd5ebac9a6783ba /lisp | |
| parent | 50068163680fcfbb741e73a6219798844157f6bd (diff) | |
| download | emacs-1759b7d06acad918d439a3f4d25bd9aa77549dd1.tar.gz emacs-1759b7d06acad918d439a3f4d25bd9aa77549dd1.zip | |
* lisp/net/tramp-gvfs.el (tramp-gvfs-handle-file-system-info): Fix error.
Diffstat (limited to 'lisp')
| -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." | |||
| 1521 | (size (cdr (assoc "filesystem::size" attr))) | 1521 | (size (cdr (assoc "filesystem::size" attr))) |
| 1522 | (used (cdr (assoc "filesystem::used" attr))) | 1522 | (used (cdr (assoc "filesystem::used" attr))) |
| 1523 | (free (cdr (assoc "filesystem::free" attr)))) | 1523 | (free (cdr (assoc "filesystem::free" attr)))) |
| 1524 | (when (and (stringp size) (stringp used) (stringp free)) | 1524 | (when (or size used free) |
| 1525 | (list (string-to-number size) | 1525 | (list (string-to-number (or size "0")) |
| 1526 | (- (string-to-number size) (string-to-number used)) | 1526 | (string-to-number (or free "0")) |
| 1527 | (string-to-number free)))))) | 1527 | (- (string-to-number (or size "0")) |
| 1528 | (string-to-number (or used "0")))))))) | ||
| 1528 | 1529 | ||
| 1529 | (defun tramp-gvfs-handle-make-directory (dir &optional parents) | 1530 | (defun tramp-gvfs-handle-make-directory (dir &optional parents) |
| 1530 | "Like `make-directory' for Tramp files." | 1531 | "Like `make-directory' for Tramp files." |