From de909179393f2052eeb5dd0738bcdc582e654b14 Mon Sep 17 00:00:00 2001 From: "Eric S. Raymond" Date: Wed, 3 Dec 2014 18:26:34 -0500 Subject: [PATCH] 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 2309fc57e79..2ff0a2d8d16 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2014-12-03 Eric S. Raymond + + * files.el (file-tree-walk): Fix docstring. + 2014-12-03 Karl Fogel Fix bug whereby saving files hung in VC hook. diff --git a/lisp/files.el b/lisp/files.el index 720a633761a..740a00a41e3 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))) -- 2.39.2