Function: ff-all-dirs-under

ff-all-dirs-under is a byte-compiled function defined in find-file.el.gz.

Signature

(ff-all-dirs-under HERE &optional EXCLUDE)

Documentation

Get all the directory files under directory HERE.

Exclude all files in the optional EXCLUDE list.

Source Code

;; Defined in /usr/src/emacs/lisp/find-file.el.gz
(defun ff-all-dirs-under (here &optional exclude)
  "Get all the directory files under directory HERE.
Exclude all files in the optional EXCLUDE list."
  (if (file-directory-p here)
      (ignore-errors
	(let ((files (directory-files here t))
	      (dirlist (list))
	      file)
	  (while files
	    (setq file (car files))
	    (if (and
		 (file-directory-p file)
		 (not (member (file-name-nondirectory file) exclude)))
		(setq dirlist (cons file dirlist)))
	    (setq files (cdr files)))
	  (setq dirlist (reverse dirlist))))
    nil))