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

; More accurate documentation of 'file-newer-than-file-p'

Browse source 
* doc/lispref/files.texi (File Attributes):
* src/fileio.c (Ffile_newer_than_file_p): Say the comparison uses
the last-modification times.  (Bug#73709)
This commit is contained in:
Eli Zaretskii 2024-10-10 11:03:48 +03:00
parent e49b479f86
commit d664227f81
2 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
doc/lispref/files.texi
View file

@ -1299,7 +1299,8 @@ and modification.
This function returns @code{t} if the file @var{filename1} is This function returns @code{t} if the file @var{filename1} is
newer than file @var{filename2}. If @var{filename1} does not newer than file @var{filename2}. If @var{filename1} does not
exist, it returns @code{nil}. If @var{filename1} does exist, but exist, it returns @code{nil}. If @var{filename1} does exist, but
@var{filename2} does not, it returns @code{t}. @var{filename2} does not, it returns @code{t}. Otherwise, it compares
the times of last modification of the files.
In the following example, assume that the file @file{aug-19} was written In the following example, assume that the file @file{aug-19} was written
on the 19th, @file{aug-20} was written on the 20th, and the file on the 19th, @file{aug-20} was written on the 20th, and the file

3
src/fileio.c
View file

@ -3788,7 +3788,8 @@ DEFUN ("unix-sync", Funix_sync, Sunix_sync, 0, 0, "",
DEFUN ("file-newer-than-file-p", Ffile_newer_than_file_p, Sfile_newer_than_file_p, 2, 2, 0, DEFUN ("file-newer-than-file-p", Ffile_newer_than_file_p, Sfile_newer_than_file_p, 2, 2, 0,
doc: /* Return t if file FILE1 is newer than file FILE2. doc: /* Return t if file FILE1 is newer than file FILE2.
If FILE1 does not exist, the answer is nil; If FILE1 does not exist, the answer is nil;
otherwise, if FILE2 does not exist, the answer is t. */) otherwise, if FILE2 does not exist, the answer is t.
For existing files, this compares their last-modified times. */)
(Lisp_Object file1, Lisp_Object file2) (Lisp_Object file1, Lisp_Object file2)
{ {
struct stat st1, st2; struct stat st1, st2;