Function: tcl-files-alist

tcl-files-alist is a byte-compiled function defined in tcl.el.gz.

Signature

(tcl-files-alist DIR &optional ALIST)

Documentation

Recursively add all pairs (FILE . PATH) under DIR to ALIST.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/tcl.el.gz
(defun tcl-files-alist (dir &optional alist)
  "Recursively add all pairs (FILE . PATH) under DIR to ALIST."
  (dolist (file (directory-files dir t) alist)
    (cond
     ((not (file-directory-p file))
      (push (cons (file-name-nondirectory file) file) alist))
     ((member (file-name-nondirectory file) '("." "..")))
     (t (setq alist (tcl-files-alist file alist))))))