Re: tramp (2.0.25); multihop broken for me.

[Michael Albinus]

Tim Connors <address@hidden> writes:

> So I installed the CVS version of tramp a week or so ago. I just tried
> to load a multihop file, and it failed with "Not a tramp file name:
> /[multi/ssh:address@hidden/ssh:address@hidden/home/tconnors/journal/J020925.1html"

According to the provided backtrace, tramp-dissect-file-name has a
problem parsing multi-hop filenames with XEmacs syntax. In the GNU
Emacs case it tolerates the filename.

Could you, please, try the following patch? I have no XEmacs at hand
just now (I will have tonight, at home). If OK, I'll commit the patch
to CVS. Kai is very busy these days.

cd ~/src/tramp/lisp/
diff -c /home/albinus/src/tramp/lisp/tramp.el.\~1\~ 
/home/albinus/src/tramp/lisp/tramp.el
*** /home/albinus/src/tramp/lisp/tramp.el.~1~   Mon Oct 14 09:24:51 2002
--- /home/albinus/src/tramp/lisp/tramp.el       Mon Oct 14 09:52:11 2002
***************
*** 5633,5648 ****
    "Return an `tramp-file-name' structure.
  The structure consists of remote method, remote user, remote host and
  remote path name."
!   (let (method)
!     (save-match-data
!       (unless (string-match (nth 0 tramp-file-name-structure) name)
!         (error "Not a tramp file name: %s" name))
!       (setq method (match-string (nth 1 tramp-file-name-structure) name))
        (if (and method (member method tramp-multi-methods))
            ;; If it's a multi method, the file name structure contains
            ;; arrays of method, user and host.
            (tramp-dissect-multi-file-name name)
          ;; Normal method.  First, find out default method.
        (let ((user (match-string (nth 2 tramp-file-name-structure) name))
              (host (match-string (nth 3 tramp-file-name-structure) name))
              (path (match-string (nth 4 tramp-file-name-structure) name)))
--- 5633,5647 ----
    "Return an `tramp-file-name' structure.
  The structure consists of remote method, remote user, remote host and
  remote path name."
!   (save-match-data
!     (let* ((match (string-match (nth 0 tramp-file-name-structure) name))
!          (method (match-string (nth 1 tramp-file-name-structure) name)))
        (if (and method (member method tramp-multi-methods))
            ;; If it's a multi method, the file name structure contains
            ;; arrays of method, user and host.
            (tramp-dissect-multi-file-name name)
          ;; Normal method.  First, find out default method.
+       (unless match (error "Not a tramp file name: %s" name))
        (let ((user (match-string (nth 2 tramp-file-name-structure) name))
              (host (match-string (nth 3 tramp-file-name-structure) name))
              (path (match-string (nth 4 tramp-file-name-structure) name)))

Diff finished at Mon Oct 14 10:10:36

> Thanks.....

Best regards, Michael.