X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/7823745acbe9b87eea2db4ef434e379fc903ec35..3aa73b04e81ebc396892b14e5e9fa78a13ff85d1:/lisp/net/tramp-adb.el?ds=sidebyside

diff --git a/lisp/net/tramp-adb.el b/lisp/net/tramp-adb.el
index d0a5c52f5e..5940b71395 100644
--- a/lisp/net/tramp-adb.el
+++ b/lisp/net/tramp-adb.el
@@ -1228,7 +1228,10 @@ connection if a previous connection has died for some reason."
 		;; Read the expression.
 		(goto-char (point-min))
 		(read (current-buffer)))
-	      ":" 'omit))))))))
+	      ":" 'omit))
+
+	    ;; Mark it as connected.
+	    (tramp-set-connection-property p "connected" t)))))))
 
 (add-hook 'tramp-unload-hook
 	  (lambda ()