Function: ffap-all-subdirs-loop

ffap-all-subdirs-loop is a byte-compiled function defined in ffap.el.gz.

Signature

(ffap-all-subdirs-loop DIR DEPTH)

Source Code

;; Defined in /usr/src/emacs/lisp/ffap.el.gz
(defun ffap-all-subdirs-loop (dir depth) ; internal
  (setq depth (1- depth))
  (cons dir
	(and (not (eq depth -1))
             (apply #'nconc
		    (mapcar
                     (lambda (d)
                       (cond
                        ((not (file-directory-p d)) nil)
                        ((file-symlink-p d) (list d))
                        (t (ffap-all-subdirs-loop d depth))))
		     (directory-files dir t "\\`[^.]")
		     )))))