From 150622a1734d33e7d72f6161d645f38b88f4e839 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 17 Dec 2013 20:19:08 -0800 Subject: [PATCH] * src/lread.c (openp): Further fix for previous. --- src/lread.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/lread.c b/src/lread.c index b8b9189719b..e0b9533fa60 100644 --- a/src/lread.c +++ b/src/lread.c @@ -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); -- 2.39.2