diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/callint.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/callint.c b/src/callint.c index c713e08d4d4..dcda0bcf7a0 100644 --- a/src/callint.c +++ b/src/callint.c | |||
| @@ -357,7 +357,9 @@ invoke it. If KEYS is omitted or nil, the return value of | |||
| 357 | /* Compute the arg values using the user's expression. */ | 357 | /* Compute the arg values using the user's expression. */ |
| 358 | specs = Feval (specs, | 358 | specs = Feval (specs, |
| 359 | CONSP (funval) && EQ (Qclosure, XCAR (funval)) | 359 | CONSP (funval) && EQ (Qclosure, XCAR (funval)) |
| 360 | ? CAR_SAFE (XCDR (funval)) : Qnil); | 360 | ? CAR_SAFE (XCDR (funval)) |
| 361 | : COMPILEDP (funval) && INTEGERP (AREF (funval, COMPILED_ARGLIST)) | ||
| 362 | ? Qt : Qnil); | ||
| 361 | if (events != num_input_events || !NILP (record_flag)) | 363 | if (events != num_input_events || !NILP (record_flag)) |
| 362 | { | 364 | { |
| 363 | /* We should record this command on the command history. */ | 365 | /* We should record this command on the command history. */ |