diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/macroexp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el index c6e1c0fea38..65a72aa5312 100644 --- a/lisp/emacs-lisp/macroexp.el +++ b/lisp/emacs-lisp/macroexp.el @@ -274,7 +274,7 @@ be skipped; if nil, as is usual, `macroexp-const-p' is used." (expsym (make-symbol "exp"))) `(let* ((,expsym ,exp) (,var (if (funcall #',(or test #'macroexp-const-p) ,expsym) - ,expsym (make-symbol "x"))) + ,expsym (make-symbol ,(symbol-name var)))) (,bodysym ,(macroexp-progn exps))) (if (eq ,var ,expsym) ,bodysym (macroexp-let* (list (list ,var ,expsym)) |