Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
ffa86039
Commit
ffa86039
authored
Jan 07, 2015
by
Glenn Morris
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* lisp/files.el (file-tree-walk): Remove; of unknown authorship.
* etc/NEWS: Remove entry. Fixes: debbugs:19325
parent
dff81fa7
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
4 additions
and
36 deletions
+4
-36
etc/NEWS
etc/NEWS
+0
-4
lisp/ChangeLog
lisp/ChangeLog
+4
-0
lisp/files.el
lisp/files.el
+0
-32
No files found.
etc/NEWS
View file @
ffa86039
...
...
@@ -141,10 +141,6 @@ this has no effect.
** A new text property `inhibit-read-only' can be used in read-only
buffers to allow certain parts of the text to be writable.
** A new function `file-tree-walk' allows to apply a certain action
to all the files and subdirectories of a directory, similarly to the C
library function `ftw'.
** A new function `directory-files-recursively' returns all matching
files (recursively) under a directory.
...
...
lisp/ChangeLog
View file @
ffa86039
2015-01-08 Glenn Morris <rgm@gnu.org>
* files.el (file-tree-walk): Remove; of unknown authorship. (Bug#19325)
2015-01-07 K. Handa <handa@gnu.org>
* international/ccl.el (define-ccl-program): Improve the docstring.
...
...
lisp/files.el
View file @
ffa86039
...
...
@@ -729,38 +729,6 @@ The path separator is colon in GNU and GNU-like systems."
(
lambda
(
f
)
(
and
(
file-directory-p
f
)
'dir-ok
)))
(
error
"No such directory found via CDPATH environment variable"
))))
(
defun
file-tree-walk
(
dir
action
&rest
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
prevented. Directory entries are sorted with string-lessp."
(
cond
((
file-directory-p
dir
)
(
setq
dir
(
file-name-as-directory
dir
))
(
let
((
lst
(
directory-files
dir
nil
nil
t
))
fullname
file
)
(
while
lst
(
setq
file
(
car
lst
))
(
setq
lst
(
cdr
lst
))
(
cond
((
member
file
'
(
"."
".."
)))
(
t
(
and
(
apply
action
dir
file
args
)
(
setq
fullname
(
concat
dir
file
))
(
file-directory-p
fullname
)
(
apply
'file-tree-walk
fullname
action
args
)))))))
(
t
(
apply
action
(
file-name-directory
dir
)
(
file-name-nondirectory
dir
)
args
))))
(
defsubst
directory-name-p
(
name
)
"Return non-nil if NAME ends with a slash character."
(
and
(
>
(
length
name
)
0
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment