Function: ange-ftp-root-dir-p

ange-ftp-root-dir-p is a byte-compiled function defined in ange-ftp.el.gz.

Signature

(ange-ftp-root-dir-p DIR)

Source Code

;; Defined in /usr/src/emacs/lisp/net/ange-ftp.el.gz
(defun ange-ftp-root-dir-p (dir)
  ;; Maybe we should use something more like
  ;; (equal dir (file-name-directory (directory-file-name dir)))  -stef
  (or (and (eq system-type 'windows-nt)
	   (string-match "\\`[a-zA-Z]:[/\\]\\'" dir))
      (string-equal "/" dir)))