diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-02-25 11:05:49 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 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.tar.bz2 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 /* Compute the arg values using the user's expression. */ GCPRO2 (input, filter_specs); specs = Feval (specs, - CONSP (funval) && EQ (Qclosure, XCAR (funval)) - ? Qt : Qnil); + CONSP (funval) && EQ (Qclosure, XCAR (funval)) + ? CAR_SAFE (XCDR (funval)) : Qnil); UNGCPRO; if (events != num_input_events || !NILP (record_flag)) { |