Function: ange-ftp-file-remote-p

ange-ftp-file-remote-p is a byte-compiled function defined in ange-ftp.el.gz.

Signature

(ange-ftp-file-remote-p FILE &optional IDENTIFICATION CONNECTED)

Source Code

;; Defined in /usr/src/emacs/lisp/net/ange-ftp.el.gz
(defun ange-ftp-file-remote-p (file &optional identification connected)
  (let* ((parsed (ange-ftp-ftp-name file))
	 (host (nth 0 parsed))
	 (user (nth 1 parsed))
	 (localname (nth 2 parsed)))
    (and (or (memq connected '(nil never))
	     (let ((proc (get-process (ange-ftp-ftp-process-buffer host user))))
	       (and proc (processp proc)
		    (memq (process-status proc) '(run open)))))
	 (cond
	  ((eq identification 'method) (and parsed "ftp"))
	  ((eq identification 'user) user)
	  ((eq identification 'host) host)
	  ((eq identification 'localname) localname)
	  ((eq identification 'hop) nil)
	  (t (ange-ftp-replace-name-component file ""))))))