[Emacs-diffs] master 4563d1b 1/2: * lisp/net/tramp-rclone.el (tramp-rclone-mounted-p): Fix thinko.

[Michael Albinus]

branch: master
commit 4563d1b9fa532d08b4d2b6c0015199d1b552092c
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    * lisp/net/tramp-rclone.el (tramp-rclone-mounted-p): Fix thinko.
---
 lisp/net/tramp-rclone.el | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

diff --git a/lisp/net/tramp-rclone.el b/lisp/net/tramp-rclone.el
index 3db8f1d..77ff6d5 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."