Function: vhdl-get-subdirs

vhdl-get-subdirs is a byte-compiled function defined in vhdl-mode.el.gz.

Signature

(vhdl-get-subdirs DIRECTORY)

Documentation

Recursively get subdirectories of DIRECTORY.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/vhdl-mode.el.gz
(defun vhdl-get-subdirs (directory)
  "Recursively get subdirectories of DIRECTORY."
  (let ((dir-list (list (file-name-as-directory directory)))
	file-list)
    (setq file-list (vhdl-directory-files directory t "\\w.*"))
    (while file-list
      (when (file-directory-p (car file-list))
	(setq dir-list (append dir-list (vhdl-get-subdirs (car file-list)))))
      (setq file-list (cdr file-list)))
    dir-list))