Zander671/emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

A few more changes

Browse Source
This commit is contained in:
Alexander Rosenberg
2025-01-01 04:39:28 -08:00
parent 7ef055bc51
commit 966c3392aa
2 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
elisp/trusted-files.el
View File

@ -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 eglot-ensure eglot)
(trusted-files--define-safe-wrapper flymake-mode flymake) (trusted-files--define-safe-wrapper flymake-mode flymake)
(trusted-files--define-safe-wrapper flycheck-mode flycheck) (trusted-files--define-safe-wrapper flycheck-mode flycheck)
(trusted-files--define-safe-wrapper sly sly)
(trusted-files-mark-function-unsafe #'elisp-completion-at-point) (trusted-files-mark-function-unsafe #'elisp-completion-at-point)
;;;###autoload ;;;###autoload

2
init.el
View File

@ -1866,7 +1866,7 @@ line in the block and manually deal with indentation."
:init :init
(defun my/-lisp-mode-autoconnect-sly () (defun my/-lisp-mode-autoconnect-sly ()
(unless (sly-connected-p) (unless (sly-connected-p)
(sly))) (trusted-files-sly-if-safe)))
(setq inferior-lisp-program "/usr/bin/sbcl") (setq inferior-lisp-program "/usr/bin/sbcl")
(defun my/-sly-fix-special-buffers () (defun my/-sly-fix-special-buffers ()
(when (string-match-p (rx bos "*" (* any) "*" eos) (buffer-name)) (when (string-match-p (rx bos "*" (* any) "*" eos) (buffer-name))