Make recent Tramp patch work for tramp-archive.el

* lisp/net/tramp.el (tramp-connectable-p): Make it work also for
tramp-archive.el.

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 8903d38d20f51bf81e066a249a14f0a005d789e0..aefb84bb4e466b4e9d2637024f770c47c0e756ae 100644 (file)
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -2530,12 +2530,11 @@ not in completion mode."
          ((tramp-file-name-p vec-or-filename) vec-or-filename)
          ((tramp-tramp-file-p vec-or-filename)
           (tramp-dissect-file-name vec-or-filename)))))
-    (when vec
-      (or ;; We check this for the process related to
-         ;; `tramp-buffer-name'; otherwise `start-file-process'
-         ;; wouldn't run ever when `non-essential' is non-nil.
-         (process-live-p (get-process (tramp-buffer-name vec)))
-         (not (tramp-completion-mode-p))))))
+    (or ;; We check this for the process related to
+       ;; `tramp-buffer-name'; otherwise `start-file-process'
+       ;; wouldn't run ever when `non-essential' is non-nil.
+        (and vec (process-live-p (get-process (tramp-buffer-name vec))))
+       (not (tramp-completion-mode-p)))))
 
 ;; Method, host name and user name completion.
 ;; `tramp-completion-dissect-file-name' returns a list of