diff options
Diffstat (limited to 'lisp/emacs-lisp/macroexp.el')
| -rw-r--r-- | lisp/emacs-lisp/macroexp.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el index 364e3540703..876b9a468ac 100644 --- a/lisp/emacs-lisp/macroexp.el +++ b/lisp/emacs-lisp/macroexp.el @@ -134,7 +134,7 @@ Assumes the caller has bound `macroexpand-all-environment'." (maybe-cons fun (maybe-cons (macroexpand-all-forms (cadr form) 2) nil - (cadr form)) + (cdr form)) form) form)) ((memq fun '(let let*)) @@ -146,7 +146,7 @@ Assumes the caller has bound `macroexpand-all-environment'." ((eq fun 'quote) form) ((and (consp fun) (eq (car fun) 'lambda)) - ;; embedded lambda + ;; Embedded lambda in function position. (maybe-cons (macroexpand-all-forms fun 2) (macroexpand-all-forms (cdr form)) form)) |