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

* files.el (file-tree-walk): Use file-name-as-directory

Browse source 
unconditionally.
This commit is contained in:
Andreas Schwab 2014-12-10 09:44:26 +01:00
parent 5c9a98bffb
commit 94a3f7648c
2 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2014-12-10 Andreas Schwab <schwab@suse.de>
* files.el (file-tree-walk): Use file-name-as-directory
unconditionally.
2014-12-10 Lars Magne Ingebrigtsen <larsi@gnus.org>
* files.el (directory-files-recursively): Use

3
lisp/files.el
View file

@ -743,8 +743,7 @@ 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)
(or (char-equal ?/ (aref dir (1- (length dir))))
(setq dir (file-name-as-directory dir)))
(setq dir (file-name-as-directory dir))
(let ((lst (directory-files dir nil nil t))
fullname file)
(while lst