It seems there's a lot of voodoo going on in that function. What do
people think about this one?
(defun tramp-handle-directory-file-name (directory)
"Like `directory-file-name' for tramp files."
;; If path component of filename is "/", leave it unchanged.
;; Otherwise, remove any trailing slash from path component.
;; Method, host, etc, are unchanged.
(with-parsed-tramp-file-name directory nil
(if (and (eq (aref path (1- (length path))) ?/)
(not (string= path "/")))
(substring directory 0 -1)
directory)))
I wish it could be further simplified. But `directory-file-name'
cannot be told to just use the Unix behavior.
--
A turnip curses Elvis
_______________________________________________
Tramp-devel mailing list
[EMAIL PROTECTED]
http://mail.nongnu.org/mailman/listinfo/tramp-devel
