Re: How can I apply a function to all file in a directory,recursively?

[kai.grossjohann@gmx.net (Kai Großjohann)]

Wang Yin <wang-y01@mails.tsinghua.edu.cn> writes:

> I need some elisp code that can apply a function (actually,
> semanticdb-get-database) to all file in a directory and it's
> subdirectories recursively.

The function directory-files gives you a list of files and
directories in a directory.  You can then examine each element of the
list whether it is a directory.  If it is, call yourself recursively.

(defun walk-subtree (dir)
  (mapcar (lambda (f)
            (setq f (expand-file-name f dir))
            (if (file-directory-p f) 
                (walk-subtree f)
              (message "Found a file: %s" f)))
          (directory-files dir)))

-- 
This line is not blank.