procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

lisp/files.el (file-tree-walk): Doc fix.

Browse source
This commit is contained in:
Eli Zaretskii 2014-12-04 09:58:19 +02:00
parent a0363ffa99
commit 2bef807c32
2 changed files with 14 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2014-12-04 Eli Zaretskii <eliz@gnu.org>
* files.el (file-tree-walk): Doc fix.
2014-12-04 Rupert Swarbrick <ruperts@broadcom.com> (tiny change)
Rüdiger Sonderfeld <ruediger@c-plusplus.net>

13
lisp/files.el
View file

@ -730,10 +730,17 @@ The path separator is colon in GNU and GNU-like systems."
(error "No such directory found via CDPATH environment variable"))))
(defun file-tree-walk (dir action &rest args)
"Walk DIR executing ACTION on each path, with ARGS as additional arguments.
Each call gets as arguments DIR, a file path, and optional ARGS.
"Walk DIR executing ACTION on each file, with ARGS as additional arguments.
For each file, the function calls ACTION as follows:
\(ACTION DIRECTORY BASENAME ARGS\)
Where DIRECTORY is the leading directory of the file,
BASENAME is the basename of the file,
and ARGS are as specified in the call to this function, or nil if omitted.
The ACTION is applied to each subdirectory before descending into
it, and if nil is returned at that point the descent will be
it, and if nil is returned at that point, the descent will be
prevented. Directory entries are sorted with string-lessp."
(cond ((file-directory-p dir)
(or (char-equal ?/ (aref dir (1- (length dir))))