(Fall_completions, Ftry_completion): New arg to Fcommandp.

diff --git a/src/minibuf.c b/src/minibuf.c
index 92a33022080d1478e31de9a8d00ddfd6322971fc..388c912292c5e3a405d411a832ea25013b9610d3 100644 (file)
--- 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);