Function: ange-ftp-file-name-directory

ange-ftp-file-name-directory is a byte-compiled function defined in ange-ftp.el.gz.

Signature

(ange-ftp-file-name-directory NAME)

Documentation

Documented as file-name-directory.

Source Code

;; Defined in /usr/src/emacs/lisp/net/ange-ftp.el.gz
(defun ange-ftp-file-name-directory (name)
  "Documented as `file-name-directory'."
  (let ((parsed (ange-ftp-ftp-name name)))
    (if parsed
	(let ((filename (nth 2 parsed)))
	  (if (string-match-p "\\`~[^/]*\\'" filename)
	      name
	    (ange-ftp-replace-name-component
	     name
	     (ange-ftp-real-file-name-directory filename))))
      (ange-ftp-real-file-name-directory name))))