master 86dbe8682d: Respect structure of Tramp archive file names

[Michael Albinus]

branch: master
commit 86dbe8682dce5c8b2c7b8c2bda936ed7af53923b
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>

    Respect structure of Tramp archive file names
    
    * lisp/net/tramp.el (tramp-make-tramp-file-name):
    Respect structure of archive file names.
---
 lisp/net/tramp.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 3c6f4974d7..4c6a0bd964 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)