From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 28 Apr 2002 22:05:02 +0000 (+0000)
Subject: (Fall_completions, Ftry_completion): New arg to Fcommandp.
X-Git-Tag: ttn-vms-21-2-B4~15341
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c837f4f9c357f23dc7ed4f91cc9b883d326ecfb5;p=emacs.git

(Fall_completions, Ftry_completion): New arg to Fcommandp.
---

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);