tramp-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: problems with tramp 2.0.12 and 2.0.24 on xemacs


From: Kai Großjohann
Subject: Re: problems with tramp 2.0.12 and 2.0.24 on xemacs
Date: Fri, 04 Oct 2002 22:37:21 +0200
User-agent: Gnus/5.090008 (Oort Gnus v0.08) Emacs/21.3.50 (i686-pc-linux-gnu)

Bruce Lowekamp <address@hidden> writes:

> It eventually works down to the root directory, where it stays in an
> infinite loop:
> tramp: Finding true name for `/[ssh/grid.cs.wm.edu]/'
> tramp: True name of `/[ssh/grid.cs.wm.edu]/' is `'
> tramp: Finding true name for `/[ssh/grid.cs.wm.edu]/../'
> tramp: Check /..
> tramp: file attributes with perl: /[ssh/grid.cs.wm.edu]/..
> tramp: Processing step `..'
> tramp: True name of `/[ssh/grid.cs.wm.edu]/../' is `'
> tramp: Finding true name for `/[ssh/grid.cs.wm.edu]/'
> tramp: True name of `/[ssh/grid.cs.wm.edu]/' is `'
> tramp: Finding true name for `/[ssh/grid.cs.wm.edu]/../'
> tramp: Check /..

Please try this patch.  If it doesn't help, it should at least change
that output.  (The *debug tramp/foo* buffer would be useful, if it
doesn't work.)

Index: tramp.el
===================================================================
RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v
retrieving revision 2.237
retrieving revision 2.238
diff -u -u -r2.237 -r2.238
--- tramp.el    3 Oct 2002 21:47:40 -0000       2.237
+++ tramp.el    4 Oct 2002 20:35:29 -0000       2.238
@@ -1907,14 +1907,17 @@
       (when (>= numchase numchase-limit)
        (error "Maximum number (%d) of symlinks exceeded" numchase-limit))
       (setq result (reverse result))
+      ;; Combine list to form string.
+      (setq result
+           (if result
+               (mapconcat 'identity (cons "" result) "/")
+             "/"))
+      (when is-dir (setq result (concat result "/")))
       (tramp-message-for-buffer
        multi-method method user host
-       10 "True name of `%s' is `%s'"
-       filename (mapconcat 'identity (cons "" result) "/"))
+       10 "True name of `%s' is `%s'" filename result)
       (tramp-make-tramp-file-name
-       multi-method method user host
-       (concat (mapconcat 'identity (cons "" result) "/")
-              (if is-dir "/" ""))))))
+       multi-method method user host result))))
 
 ;; Basic functions.
 


kai
-- 
~/.signature is: umop ap!sdn    (Frank Nobis)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]