From 7e1f5da169c88124736109ed4320ca9ae99f1fd3 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Mon, 8 Mar 2021 10:19:19 -0500 Subject: [PATCH] lang/emacs-lisp: respect lexical-binding in eval handler --- modules/lang/emacs-lisp/autoload.el | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/modules/lang/emacs-lisp/autoload.el b/modules/lang/emacs-lisp/autoload.el index b7257add7..eaa95d1c3 100644 --- a/modules/lang/emacs-lisp/autoload.el +++ b/modules/lang/emacs-lisp/autoload.el @@ -11,12 +11,14 @@ to a pop up buffer." (string-trim-right (condition-case-unless-debug e (let ((result - (let ((debug-on-error t)) - (eval (read (format "(progn %s)" (buffer-substring-no-properties beg end))) - `((buffer-file-name . ,(buffer-file-name (buffer-base-buffer))) - (doom--current-module - . ,(ignore-errors - (doom-module-from-path buffer-file-name)))))))) + (let ((buffer-file-name + (buffer-file-name (buffer-base-buffer))) + (doom--current-module + (ignore-errors (doom-module-from-path buffer-file-name))) + (debug-on-error t)) + (eval (read (format "(progn %s)" + (buffer-substring-no-properties beg end))) + lexical-binding)))) (require 'pp) (replace-regexp-in-string "\\\\n" "\n" (pp-to-string result))) (error (error-message-string e))))