Function: ange-ftp-directory-files

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

Signature

(ange-ftp-directory-files DIRECTORY &optional FULL MATCH NOSORT COUNT)

Source Code

;; Defined in /usr/src/emacs/lisp/net/ange-ftp.el.gz
(defun ange-ftp-directory-files (directory &optional full match nosort count)
  (setq directory (expand-file-name directory))
  (if (ange-ftp-ftp-name directory)
      (progn
	(ange-ftp-barf-if-not-directory directory)
	(let ((tail (ange-ftp-hash-table-keys
		     (ange-ftp-get-files directory)))
	      files f)
	  (setq directory (file-name-as-directory directory))
	  (while tail
	    (setq f (car tail)
		  tail (cdr tail))
	    (if (or (not match) (string-match-p match f))
		(setq files
		      (cons (if full (concat directory f) f) files))))
          (when (natnump count)
            (setq files (last files count)))
	  (nreverse files)))
    (apply 'ange-ftp-real-directory-files directory full match nosort count)))