diff options
| author | Richard M. Stallman | 2002-04-28 22:05:02 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-04-28 22:05:02 +0000 |
| commit | c837f4f9c357f23dc7ed4f91cc9b883d326ecfb5 (patch) | |
| tree | c028de2e4a0e82ceb96d4af201bcab1b17f5c1ad | |
| parent | 72cc582e6971d28f6c9110433578ced2d46ace46 (diff) | |
| download | emacs-c837f4f9c357f23dc7ed4f91cc9b883d326ecfb5.tar.gz emacs-c837f4f9c357f23dc7ed4f91cc9b883d326ecfb5.zip | |
(Fall_completions, Ftry_completion): New arg to Fcommandp.
| -rw-r--r-- | src/minibuf.c | 4 |
1 files 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. */) | |||
| 1193 | if (!NILP (predicate)) | 1193 | if (!NILP (predicate)) |
| 1194 | { | 1194 | { |
| 1195 | if (EQ (predicate, Qcommandp)) | 1195 | if (EQ (predicate, Qcommandp)) |
| 1196 | tem = Fcommandp (elt); | 1196 | tem = Fcommandp (elt, Qnil); |
| 1197 | else | 1197 | else |
| 1198 | { | 1198 | { |
| 1199 | GCPRO4 (tail, string, eltstring, bestmatch); | 1199 | GCPRO4 (tail, string, eltstring, bestmatch); |
| @@ -1420,7 +1420,7 @@ are ignored unless STRING itself starts with a space. */) | |||
| 1420 | if (!NILP (predicate)) | 1420 | if (!NILP (predicate)) |
| 1421 | { | 1421 | { |
| 1422 | if (EQ (predicate, Qcommandp)) | 1422 | if (EQ (predicate, Qcommandp)) |
| 1423 | tem = Fcommandp (elt); | 1423 | tem = Fcommandp (elt, Qnil); |
| 1424 | else | 1424 | else |
| 1425 | { | 1425 | { |
| 1426 | GCPRO4 (tail, eltstring, allmatches, string); | 1426 | GCPRO4 (tail, eltstring, allmatches, string); |