emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master de90917: Fix punctuation glitches in file-tree-walk


From: Eric S. Raymond
Subject: [Emacs-diffs] master de90917: Fix punctuation glitches in file-tree-walk docstring.
Date: Wed, 03 Dec 2014 23:27:00 +0000

branch: master
commit de909179393f2052eeb5dd0738bcdc582e654b14
Author: Eric S. Raymond <address@hidden>
Commit: Eric S. Raymond <address@hidden>

    Fix punctuation glitches in file-tree-walk docstring.
    
    * files.el (file-tree-walk): Fix docstring.
---
 lisp/ChangeLog |    4 ++++
 lisp/files.el  |   10 +++++-----
 2 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2309fc5..2ff0a2d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2014-12-03  Eric S. Raymond  <address@hidden>
+
+       * files.el (file-tree-walk): Fix docstring.
+
 2014-12-03  Karl Fogel  <address@hidden>
 
        Fix bug whereby saving files hung in VC hook.
diff --git a/lisp/files.el b/lisp/files.el
index 720a633..740a00a 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -730,11 +730,11 @@ 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.  Each call gets as arguments DIR, a file path,
-and optional ARGS. 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"
+  "Walk DIR executing ACTION on each path, with ARGS as additional arguments.
+Each call gets as arguments DIR, a file path, and optional ARGS.
+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)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]