Emacs : GNU Emacs 21.2.1 (i386-msvc-nt5.0.2195)
of 2003-01-20 on EMF
Package: tramp (2.0.28)
After some hacking the problem seems to be that the function
tramp-handle-directory-file-name is no clever enough about
directory handling.
I changed the fuction as follows and everything seems
correct:
(defun tramp-handle-directory-file-name (directory)
"Like `directory-file-name' for tramp files."
(with-parsed-tramp-file-name directory nil
(let ((directory-length-1 (1- (length directory))))
(save-match-data
(if (and (eq (aref directory directory-length-1) ?/)
(eq (string-match tramp-file-name-regexp directory) 0)
(not (string= path "/"))) ; <- Changed line !!
(substring directory 0 directory-length-1)
directory)))))
HTH
--
Eduardo Mu�oz
_______________________________________________
Tramp-devel mailing list
[EMAIL PROTECTED]
http://mail.nongnu.org/mailman/listinfo/tramp-devel
