Improve doc for file-name-absolute-p.

diff --git a/doc/lispref/files.texi b/doc/lispref/files.texi
index bb355f1ee35005fadccd93f9cd1a30bf3a299345..f701d683703f1987cb25d669c59c9ad8d0779295 100644 (file)
--- a/doc/lispref/files.texi
+++ b/doc/lispref/files.texi
@@ -2119,7 +2119,7 @@ backslash, or with a drive specification @samp{@var{x}:/}, where
 
 @defun file-name-absolute-p filename
 This function returns @code{t} if file @var{filename} is an absolute
-file name, @code{nil} otherwise.
+file name or begins with @samp{~}, @code{nil} otherwise.
 
 @example
 @group

diff --git a/src/fileio.c b/src/fileio.c
index 76ea7da0e81b71228feeec6cd0be47cabb70730b..fa694249cb7e1f664d114d62ac1a44165c84a17a 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -2470,8 +2470,8 @@ This happens for interactive use with M-x.  */)
 \f
 DEFUN ("file-name-absolute-p", Ffile_name_absolute_p, Sfile_name_absolute_p,
        1, 1, 0,
-       doc: /* Return t if file FILENAME specifies an absolute file name.
-On Unix, this is a name starting with a `/' or a `~'.  */)
+       doc: /* Return t if FILENAME is an absolute file name or starts with `~'.
+On Unix, absolute file names start with `/'.  */)
   (Lisp_Object filename)
 {
   CHECK_STRING (filename);