Function: tramp-handle-directory-file-name

tramp-handle-directory-file-name is a byte-compiled function defined in tramp.el.gz.

Signature

(tramp-handle-directory-file-name DIRECTORY)

Documentation

Like directory-file-name for Tramp files.

Source Code

;; Defined in /usr/src/emacs/lisp/net/tramp.el.gz
(defun tramp-handle-directory-file-name (directory)
  "Like `directory-file-name' for Tramp files."
  ;; If localname component of filename is "/", leave it unchanged.
  ;; Otherwise, remove any trailing slash from localname component.
  ;; Method, host, etc, are unchanged.
  (while (with-parsed-tramp-file-name directory nil
	   (setq localname (file-name-unquote localname))
	   (and (length> localname 0)
		(eq (aref localname (1- (length localname))) ?/)
		(not (string= localname "/"))))
    (setq directory (substring directory 0 -1)))
  directory)