# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1020031502 0
# Node ID d4ace8c553e4bfc812aed706066c1fc8052927a9
# Parent  358d42530d42ec336eeee0fd5256573d744d72e1
(Fall_completions, Ftry_completion): New arg to Fcommandp.

diff -r 358d42530d42 -r d4ace8c553e4 src/minibuf.c
--- a/src/minibuf.c	Sun Apr 28 21:48:39 2002 +0000
+++ b/src/minibuf.c	Sun Apr 28 22:05:02 2002 +0000
@@ -1193,7 +1193,7 @@
 	  if (!NILP (predicate))
 	    {
 	      if (EQ (predicate, Qcommandp))
-		tem = Fcommandp (elt);
+		tem = Fcommandp (elt, Qnil);
 	      else
 		{
 		  GCPRO4 (tail, string, eltstring, bestmatch);
@@ -1420,7 +1420,7 @@
 	  if (!NILP (predicate))
 	    {
 	      if (EQ (predicate, Qcommandp))
-		tem = Fcommandp (elt);
+		tem = Fcommandp (elt, Qnil);
 	      else
 		{
 		  GCPRO4 (tail, eltstring, allmatches, string);