From: Michael Albinus <michael.albinus@gmx.de>
Date: Wed, 19 Jan 2022 08:07:49 +0000 (+0100)
Subject: Respect structure of Tramp archive file names
X-Git-Tag: emacs-29.0.90~2954
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=86dbe8682dce5c8b2c7b8c2bda936ed7af53923b;p=emacs.git

Respect structure of Tramp archive file names

* lisp/net/tramp.el (tramp-make-tramp-file-name):
Respect structure of archive file names.
---

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 3c6f4974d7d..4c6a0bd9645 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -1735,7 +1735,10 @@ the form (METHOD USER DOMAIN HOST PORT LOCALNAME &optional HOP)."
       (when hop
 	(setq hop nil)
 	;; Assure that the hops are in `tramp-default-proxies-alist'.
-	(tramp-add-hops (car args))))
+	;; In tramp-archive.el, the slot `hop' is used for the archive
+	;; file name.
+	(unless (string-equal method "archive")
+	  (tramp-add-hops (car args)))))
 
      (t (setq method (nth 0 args)
 	      user (nth 1 args)