diff options
author | Case Duckworth | 2021-04-22 10:20:25 -0500 |
---|---|---|
committer | Case Duckworth | 2021-04-22 10:20:25 -0500 |
commit | 8e49378b47157357227ac8f06c9d0a0062a4220c (patch) | |
tree | ba140dc7fc81351ff79f98b0941eae7a112a6280 | |
parent | Also load files in .emacs.d/lisp when running `refresh-emacs' (diff) | |
download | emacs-8e49378b47157357227ac8f06c9d0a0062a4220c.tar.gz emacs-8e49378b47157357227ac8f06c9d0a0062a4220c.zip |
Move lexical-binding setting into a hook
*scratch* still doesn't apply the (setq-default lexical-binding t) form, but the advice I'd been giving `setup' broke the documentation generator function. So I just added lexical-binding to a hook when opening an emacs-lisp-mode buffer. Will this bite me later? Possibly. But I'll deal with that then. The worst that could happen is that I'd write another function, `setup-test' or something, that'd apply lexical-binding and then run `setup'. Or I could just set lexical-binding to t manually. Whatever.
-rw-r--r-- | init.el | 16 |
1 files changed, 5 insertions, 11 deletions
diff --git a/init.el b/init.el index d2a8960..3e19ec0 100644 --- a/init.el +++ b/init.el | |||
@@ -16,17 +16,6 @@ | |||
16 | 16 | ||
17 | ;;; Code: | 17 | ;;; Code: |
18 | 18 | ||
19 | ;; Let's use lexical binding by default, shall we? | ||
20 | (setq-default lexical-binding t) | ||
21 | |||
22 | ;; For some reason, the above setting doesn't translate to the *scratch* | ||
23 | ;; buffer, where I try out packages. | ||
24 | (advice-add 'setup :around | ||
25 | (defun acdw/setup-lexical-advice (orig-fun &rest args) | ||
26 | "Wrap `setup' in a `lexical-binding' form." | ||
27 | (let ((lexical-binding t)) | ||
28 | (apply orig-fun args)))) | ||
29 | |||
30 | 19 | ||
31 | ;;; Necessary packages | 20 | ;;; Necessary packages |
32 | 21 | ||
@@ -843,6 +832,11 @@ if ripgrep is installed, otherwise `consult-grep'." | |||
843 | eval-expression-print-level nil | 832 | eval-expression-print-level nil |
844 | lisp-indent-function #'lisp-indent-function) | 833 | lisp-indent-function #'lisp-indent-function) |
845 | 834 | ||
835 | (defun acdw/enforce-lexical-binding () | ||
836 | (setq lexical-binding t)) | ||
837 | |||
838 | (add-hook 'emacs-lisp-mode-hook #'acdw/enforce-lexical-binding) | ||
839 | |||
846 | (defun acdw/eval-region-or-buffer () | 840 | (defun acdw/eval-region-or-buffer () |
847 | (interactive) | 841 | (interactive) |
848 | (if (region-active-p) | 842 | (if (region-active-p) |