From c837f4f9c357f23dc7ed4f91cc9b883d326ecfb5 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 28 Apr 2002 22:05:02 +0000 Subject: [PATCH] (Fall_completions, Ftry_completion): New arg to Fcommandp. --- src/minibuf.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/minibuf.c b/src/minibuf.c index 92a33022080..388c912292c 100644 --- a/src/minibuf.c +++ b/src/minibuf.c @@ -1193,7 +1193,7 @@ is used to further constrain the set of candidates. */) if (!NILP (predicate)) { if (EQ (predicate, Qcommandp)) - tem = Fcommandp (elt); + tem = Fcommandp (elt, Qnil); else { GCPRO4 (tail, string, eltstring, bestmatch); @@ -1420,7 +1420,7 @@ are ignored unless STRING itself starts with a space. */) if (!NILP (predicate)) { if (EQ (predicate, Qcommandp)) - tem = Fcommandp (elt); + tem = Fcommandp (elt, Qnil); else { GCPRO4 (tail, eltstring, allmatches, string); -- 2.39.5