diff --git a/early-init.el b/early-init.el index da5d73c..02f92c2 100644 --- a/early-init.el +++ b/early-init.el @@ -123,11 +123,11 @@ See `no-littering' for examples.") (require pkg) (require (intern (format "+%s" pkg)) nil :noerror)) -;;; Appendix +;; Setup `setup' -;; I've patched setup to look at `setup-ensure-function-inhibit' to decide -;; whether to ensure functions or not with local macros. -(setq setup-ensure-function-inhibit t) +(add-to-list 'setup-modifier-list 'setup-wrap-to-demote-errors) + +;;; Appendix ;; Get rid of a dumb alias. straight-ಠ_ಠ-mode really slows down all ;; minibuffer completion functions. Since it's a (rarely-used, even) diff --git a/lisp/+setup.el b/lisp/+setup.el index ac99c1f..c6bcb9e 100644 --- a/lisp/+setup.el +++ b/lisp/+setup.el @@ -24,31 +24,6 @@ (require 'setup) (require 'straight) -;; I don't like the "magic" `setup' performs to ensure a symbol is a -;; function in `:global', `:bind', `:hook', `:hook-into', and others. -;; So here, I'll just make it return the symbol unmodified. -(el-patch-feature setup) -(with-eval-after-load 'setup - (el-patch-defvar - (el-patch-add setup-ensure-function-inhibit nil - "Whether to inhibit `setup-ensure-function'.")) - (el-patch-defun setup-ensure-function (sexp) - (el-patch-concat - "Attempt to return SEXP as a quoted function name." - (el-patch-add - "\nIf `setup-ensure-function-inhibit' is non-nil, just return SEXP.")) - (el-patch-wrap 3 0 - (if (and setup-ensure-function-inhibit - (not (eq sexp (setup-get 'mode)))) - sexp - (cond ((eq (car-safe sexp) 'function) - sexp) - ((eq (car-safe sexp) 'quote) - `#',(cadr sexp)) - ((symbolp sexp) - `#',sexp) - (sexp)))))) - (setup-define :face (lambda (face spec) `(custom-set-faces '(,face ,spec 'now "Customized by `setup'.")))