diff options
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/tramp-rclone.el | 6 | ||||
| -rw-r--r-- | lisp/net/tramp-sudoedit.el | 5 | ||||
| -rw-r--r-- | lisp/net/tramp.el | 20 |
3 files changed, 16 insertions, 15 deletions
diff --git a/lisp/net/tramp-rclone.el b/lisp/net/tramp-rclone.el index 48adea06898..3a0e002bc67 100644 --- a/lisp/net/tramp-rclone.el +++ b/lisp/net/tramp-rclone.el @@ -568,7 +568,11 @@ connection if a previous connection has died for some reason." ;; This could be nil. ,(tramp-get-method-parameter vec 'tramp-mount-args)))) (while (not (file-exists-p (tramp-make-tramp-file-name vec 'localname))) - (tramp-cleanup-connection vec 'keep-debug 'keep-password))))) + (tramp-cleanup-connection vec 'keep-debug 'keep-password)) + + ;; Mark it as connected. + (tramp-set-connection-property + (tramp-get-connection-process vec) "connected" t)))) ;; In `tramp-check-cached-permissions', the connection properties ;; "{uid,gid}-{integer,string}" are used. We set them to proper values. diff --git a/lisp/net/tramp-sudoedit.el b/lisp/net/tramp-sudoedit.el index 80c63c16edb..04b0bebabd4 100644 --- a/lisp/net/tramp-sudoedit.el +++ b/lisp/net/tramp-sudoedit.el @@ -785,7 +785,10 @@ connection if a previous connection has died for some reason." (set-process-query-on-exit-flag p nil) ;; Set connection-local variables. - (tramp-set-connection-local-variables vec)) + (tramp-set-connection-local-variables vec) + + ;; Mark it as connected. + (tramp-set-connection-property p "connected" t)) ;; In `tramp-check-cached-permissions', the connection properties ;; "{uid,gid}-{integer,string}" are used. We set them to proper values. diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 82d2e5a4d34..d000bbe3d65 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -4060,23 +4060,17 @@ performed successfully. Any other value means an error." (save-restriction (with-tramp-progress-reporter proc 3 "Waiting for prompts from remote shell" - ;; `global-auto-revert-mode' could activate remote operations - ;; while we aren't ready. We disable it temporarily. - (let ((garm (bound-and-true-p global-auto-revert-mode)) - exit) - (when garm (global-auto-revert-mode -1)) - (unwind-protect - (if timeout - (with-timeout (timeout (setq exit 'timeout)) - (while (not exit) - (setq exit - (catch 'tramp-action - (tramp-process-one-action proc vec actions))))) + (let (exit) + (if timeout + (with-timeout (timeout (setq exit 'timeout)) (while (not exit) (setq exit (catch 'tramp-action (tramp-process-one-action proc vec actions))))) - (when garm (global-auto-revert-mode))) + (while (not exit) + (setq exit + (catch 'tramp-action + (tramp-process-one-action proc vec actions))))) (with-current-buffer (tramp-get-connection-buffer vec) (widen) (tramp-message vec 6 "\n%s" (buffer-string))) |