diff --git a/elisp/trusted-files.el b/elisp/trusted-files.el index a677c23..d5ac029 100644 --- a/elisp/trusted-files.el +++ b/elisp/trusted-files.el @@ -1042,6 +1042,7 @@ The check if performed with `trusted-files-safe-p'.%s" (trusted-files--define-safe-wrapper eglot-ensure eglot) (trusted-files--define-safe-wrapper flymake-mode flymake) (trusted-files--define-safe-wrapper flycheck-mode flycheck) +(trusted-files--define-safe-wrapper sly sly) (trusted-files-mark-function-unsafe #'elisp-completion-at-point) ;;;###autoload diff --git a/init.el b/init.el index a0bd56c..966d271 100644 --- a/init.el +++ b/init.el @@ -1866,7 +1866,7 @@ line in the block and manually deal with indentation." :init (defun my/-lisp-mode-autoconnect-sly () (unless (sly-connected-p) - (sly))) + (trusted-files-sly-if-safe))) (setq inferior-lisp-program "/usr/bin/sbcl") (defun my/-sly-fix-special-buffers () (when (string-match-p (rx bos "*" (* any) "*" eos) (buffer-name))