procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/net/tramp-rclone.el (tramp-rclone-mounted-p): Fix thinko.

Browse source
This commit is contained in:
Michael Albinus 2019-01-30 15:29:29 +01:00
parent 16d614bbae
commit 4563d1b9fa
1 changed files with 13 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
lisp/net/tramp-rclone.el
View file

@ -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."