Implement a new function `directory-name-p'

* doc/lispref/files.texi (Relative File Names): Mention
`directory-name-p'.

* etc/NEWS: Mention directory-name-p.

(directory-name-p): New function.
(directory-files-recursively): Use it.

2 files changed, 9 insertions, 0 deletions

diff --git a/doc/lispref/ChangeLog b/doc/lispref/ChangeLog
index 8f06881adc4..0d8458fabd1 100644
--- a/doc/lispref/ChangeLog
+++ b/doc/lispref/ChangeLog
@@ -1,3 +1,7 @@
+2014-12-13  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+        * files.texi (Relative File Names): Mention `directory-name-p'.
+
 2014-12-13  Eli Zaretskii  <eliz@gnu.org>
 
         * text.texi (Comparing Text): Prevent a text string from being
diff --git a/doc/lispref/files.texi b/doc/lispref/files.texi
index 92bb718e46a..b79d5df67c8 100644
--- a/doc/lispref/files.texi
+++ b/doc/lispref/files.texi
@@ -2020,6 +2020,11 @@ form.
 @end example
 @end defun
 
+@defun directory-name-p filename
+This function returns non-@code{nil} if @var{filename} ends with a
+forward slash (@samp{/}) character.
+@end defun
+
 @node Directory Names
 @subsection Directory Names
 @cindex directory name