diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2019-01-30 15:29:29 +0100 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2019-01-30 15:29:29 +0100 |
| commit | 4563d1b9fa532d08b4d2b6c0015199d1b552092c (patch) | |
| tree | 32d2447f0bda8692465fd667ac2584c6a0219433 | |
| parent | 16d614bbae25f2bc6b49b575b6da61ea301520bb (diff) | |
| download | emacs-4563d1b9fa532d08b4d2b6c0015199d1b552092c.tar.gz | |
* lisp/net/tramp-rclone.el (tramp-rclone-mounted-p): Fix thinko.
| -rw-r--r-- | lisp/net/tramp-rclone.el | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/lisp/net/tramp-rclone.el b/lisp/net/tramp-rclone.el index 3db8f1d8af7..77ff6d59a59 100644 --- a/lisp/net/tramp-rclone.el +++ b/lisp/net/tramp-rclone.el @@ -467,19 +467,19 @@ file names." (when (tramp-get-connection-process vec) ;; We cannot use `with-connection-property', because we don't want ;; to cache a nil result. - (unless (tramp-get-connection-property - (tramp-get-connection-process vec) "mounted" nil) - (let* ((default-directory temporary-file-directory) - (mount (shell-command-to-string "mount -t fuse.rclone"))) - (tramp-message vec 6 "%s" "mount -t fuse.rclone") - (tramp-message vec 6 "\n%s" mount) - (tramp-set-connection-property - (tramp-get-connection-process vec) "mounted" - (when (string-match - (format - "^\\(%s:\\S-*\\)" (regexp-quote (tramp-file-name-host vec))) - mount) - (match-string 1 mount))))))) + (or (tramp-get-connection-property + (tramp-get-connection-process vec) "mounted" nil) + (let* ((default-directory temporary-file-directory) + (mount (shell-command-to-string "mount -t fuse.rclone"))) + (tramp-message vec 6 "%s" "mount -t fuse.rclone") + (tramp-message vec 6 "\n%s" mount) + (tramp-set-connection-property + (tramp-get-connection-process vec) "mounted" + (when (string-match + (format + "^\\(%s:\\S-*\\)" (regexp-quote (tramp-file-name-host vec))) + mount) + (match-string 1 mount))))))) (defun tramp-rclone-flush-directory-cache (vec) "Flush directory cache of VEC mount." |