andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* src/lread.c (openp): Further fix for previous.

Browse source
This commit is contained in:
Glenn Morris 2013-12-17 20:19:08 -08:00
parent 09af58633c
commit 150622a173
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/lread.c
View file

@ -1450,7 +1450,8 @@ static Lisp_Object Qdir_ok;
but store the found remote file name in *STOREPTR.
If NEWER is true, try all SUFFIXes and return the result for the
newest file that exists. Does not apply to remote files. */
newest file that exists. Does not apply to remote files,
or if PREDICATE is specified. */
int
openp (Lisp_Object path, Lisp_Object str, Lisp_Object suffixes,
@ -1623,7 +1624,7 @@ openp (Lisp_Object path, Lisp_Object str, Lisp_Object suffixes,
if (fd >= 0)
{
if (newer)
if (newer && !NATNUMP (predicate))
{
struct timespec mtime = get_stat_mtime (&st);