Function: ange-ftp-barf-if-not-directory

ange-ftp-barf-if-not-directory is a byte-compiled function defined in ange-ftp.el.gz.

Signature

(ange-ftp-barf-if-not-directory DIRECTORY)

Source Code

;; Defined in /usr/src/emacs/lisp/net/ange-ftp.el.gz
(defun ange-ftp-barf-if-not-directory (directory)
  (or (file-directory-p directory)
      (let ((exists (file-exists-p directory)))
	(signal (if exists 'file-error 'file-missing)
		(list "Opening directory"
		      (if exists "Not a directory" "No such file or directory")
		      directory)))))