lang/emacs-lisp: don't use risky-local-variable-p

It's hardcoded to return t for symbols that end in any of '-command',
'-frame-alist', '-function', '-functions', '-hook', '-hooks', '-form',
'-forms', '-map', '-map-alist', '-mode-alist', '-program', or
'-predicate' -- which I think is excessive next to a safety check.

I'll trust that: if the user marks X as safe, and it isn't *explicitly*
marked risky, and it destroys the universe, then it's their fault, not
mine, not Emacs'.
This commit is contained in:
Henrik Lissner 2021-05-06 03:57:28 -04:00
parent 52fba3fa60
commit b63441387b

View file

@ -44,7 +44,7 @@ employed so that flycheck still does *some* helpful linting.")
(message "Ignoring unsafe form in file local variable: %S" val)))
((not (safe-local-variable-p var val))
(message "Ignoring unsafe file local variable: %S" var))
((risky-local-variable-p var val)
((get sym 'risky-local-variable)
(message "Ignoring risky file local variable: %S" var))))))
:config
(set-repl-handler! '(emacs-lisp-mode lisp-interaction-mode) #'+emacs-lisp/open-repl)