diff options
| author | Noam Postavsky | 2018-01-06 21:16:33 -0500 |
|---|---|---|
| committer | Noam Postavsky | 2018-01-06 21:22:24 -0500 |
| commit | 5f720046783c5b29fad3765303c1ad57aba167ce (patch) | |
| tree | 2e2e05d977b762fe05edac7bd521e3b551ab6e6d /src | |
| parent | 15cd18991c1d9a9bafeef7bf9b4dad91ecc0332a (diff) | |
| download | emacs-5f720046783c5b29fad3765303c1ad57aba167ce.tar.gz emacs-5f720046783c5b29fad3765303c1ad57aba167ce.zip | |
Revert "Fix command repetition with lexical-binding (Bug#29334)"
It does not work with more complicated interactive forms, because
byte-compile-lambda actually receives an intermediate form of code
rather than valid lisp source (Bug#29988).
* src/callint.c (Fcall_interactively):
* lisp/emacs-lisp/bytecomp.el (byte-compile-lambda): Revert previous
change, and update commentary.
Diffstat (limited to 'src')
| -rw-r--r-- | src/callint.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/callint.c b/src/callint.c index dcda0bcf7a0..c713e08d4d4 100644 --- a/src/callint.c +++ b/src/callint.c | |||
| @@ -357,9 +357,7 @@ 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)) | 360 | ? CAR_SAFE (XCDR (funval)) : Qnil); |
| 361 | : COMPILEDP (funval) && INTEGERP (AREF (funval, COMPILED_ARGLIST)) | ||
| 362 | ? Qt : Qnil); | ||
| 363 | if (events != num_input_events || !NILP (record_flag)) | 361 | if (events != num_input_events || !NILP (record_flag)) |
| 364 | { | 362 | { |
| 365 | /* We should record this command on the command history. */ | 363 | /* We should record this command on the command history. */ |