[Top][All Lists]
[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)