[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
tramp (2.0.28); dired can't reach root dir
From: |
Eduardo Muñoz |
Subject: |
tramp (2.0.28); dired can't reach root dir |
Date: |
02 Feb 2003 16:32:57 +0100 |
User-agent: |
Gnus/5.09 (Gnus v5.9.0) Emacs/21.2 |
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