diff options
| author | Stefan Monnier | 2013-02-25 11:05:49 -0500 |
|---|---|---|
| committer | Stefan Monnier | 2013-02-25 11:05:49 -0500 |
| commit | b5071fc755c4f287c7befba1150d91a985762ebd (patch) | |
| tree | 3fd1e218ab78050d4695036fb32e74d87b46dade /src/callint.c | |
| parent | 944c37effa068de90af84c37106461bca3076bea (diff) | |
| download | emacs-b5071fc755c4f287c7befba1150d91a985762ebd.tar.gz emacs-b5071fc755c4f287c7befba1150d91a985762ebd.zip | |
* src/callint.c (Fcall_interactively): Use the right lexical environment
for `interactive' specs.
* src/eval.c (Feval): Accept a lexical environment.
Fixes: debbugs:13811
Diffstat (limited to 'src/callint.c')
| -rw-r--r-- | src/callint.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/callint.c b/src/callint.c index 3e295a3b26b..b0d4bcdd011 100644 --- a/src/callint.c +++ b/src/callint.c | |||
| @@ -342,8 +342,8 @@ invoke it. If KEYS is omitted or nil, the return value of | |||
| 342 | /* Compute the arg values using the user's expression. */ | 342 | /* Compute the arg values using the user's expression. */ |
| 343 | GCPRO2 (input, filter_specs); | 343 | GCPRO2 (input, filter_specs); |
| 344 | specs = Feval (specs, | 344 | specs = Feval (specs, |
| 345 | CONSP (funval) && EQ (Qclosure, XCAR (funval)) | 345 | CONSP (funval) && EQ (Qclosure, XCAR (funval)) |
| 346 | ? Qt : Qnil); | 346 | ? CAR_SAFE (XCDR (funval)) : Qnil); |
| 347 | UNGCPRO; | 347 | UNGCPRO; |
| 348 | if (events != num_input_events || !NILP (record_flag)) | 348 | if (events != num_input_events || !NILP (record_flag)) |
| 349 | { | 349 | { |