Function: ange-ftp-fix-dir-name-for-mts

ange-ftp-fix-dir-name-for-mts is a byte-compiled function defined in ange-ftp.el.gz.

Signature

(ange-ftp-fix-dir-name-for-mts DIR-NAME)

Source Code

;; Defined in /usr/src/emacs/lisp/net/ange-ftp.el.gz
;; Convert name from UNIX-ish to MTS ready for a DIRectory listing.
;; Remember that there are no directories in MTS.
(defun ange-ftp-fix-dir-name-for-mts (dir-name)
  (if (string-equal dir-name "/")
      (error "Cannot get listing for fictitious \"/\" directory")
    (let ((dir-name (ange-ftp-fix-name-for-mts dir-name)))
      (cond
       ((string-equal dir-name "")
	"?")
       ((string-match ":\\'" dir-name)
	(concat dir-name "?"))
       (dir-name))))) ; It's just a single file.