Advise setup to use lexical-binding

1 files changed, 9 insertions, 1 deletions

@@ -19,6 +19,14 @@
 ;; Let's use lexical binding by default, shall we?
 (setq-default lexical-binding t)
 
+;; For some reason, the above setting doesn't translate to the *scratch*
+;; buffer, where I try out packages.
+(advice-add 'setup :around
+            (defun acdw/setup-lexical-advice (orig-fun &rest args)
+              "Wrap `setup' in a `lexical-binding' form."
+              (let ((lexical-binding t))
+                (apply orig-fun args))))
+
 
 ;;; Necessary packages
 
@@ -371,7 +379,7 @@
       t)))
 
 
-;; Applications
+;;; Applications
 
 (setup (:straight (org :host nil
                        :repo "https://code.orgmode.org/bzg/org-mode.git"))