Macroexpand before evaluating in eval-expression (bis)

* lisp/simple.el (eval-expression): Macroexpand before
evaluating.  This repeats the fix made for Bug#20730 in
another branch of the code a few lines down.
This commit is contained in:
Charles A. Roelli 2018-12-22 17:28:35 +01:00
parent d2ff6627f9
commit 898a0234c9

View file

@ -1615,7 +1615,7 @@ this command arranges for all errors to enter the debugger."
(eval-expression-get-print-arguments current-prefix-arg)))
(if (null eval-expression-debug-on-error)
(push (eval exp lexical-binding) values)
(push (eval (macroexpand-all exp) lexical-binding) values)
(let ((old-value (make-symbol "t")) new-value)
;; Bind debug-on-error to something unique so that we can
;; detect when evalled code changes it.