mirrors/doomemacs
1
Fork 0
mirror of https://github.com/doomemacs/doomemacs.git synced 2025-12-06 02:30:33 -08:00
Code Issues Projects Releases Wiki Activity

feat(lib): backport safe-local-variable-directories

Browse source 
Necessary to silence safe-local-variable warnings/prompts for $EMACSDIR
and $DOOMDIR, later.
This commit is contained in:
Henrik Lissner 2024-11-28 16:10:23 -05:00
parent da08aa2d7d
commit 201321c929
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
1 changed files with 14 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/doom-compat.el
View file

@ -137,5 +137,19 @@ and return the value found in PLACE instead."
(assq mode major-mode-remap-defaults))) (assq mode major-mode-remap-defaults)))
mode))) mode)))
;; Introduced in Emacs 30+
(unless (boundp 'safe-local-variable-directories)
(defvar safe-local-variable-directories ())
(define-advice hack-local-variables-filter
(:around (fn variables dir-name) backport-safe-local-variable-directories)
(let ((enable-local-variables
(if (delq nil (mapcar (lambda (dir)
(and dir-name dir
(file-equal-p dir dir-name)))
safe-local-variable-directories))
:all
enable-local-variables)))
(funcall fn variables dir-name))))
(provide 'doom-compat) (provide 'doom-compat)
;;; doom-compat.el ends here ;;; doom-compat.el ends here