emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

revert: Ignore unsafe local variables, but log them

Browse source 
This behavior was too non-standard and invited more confusion than it
helped.

Ref #4070
Revert 5e7864838a
This commit is contained in:
Henrik Lissner 2021-10-06 01:22:46 +02:00
parent 0b07264619
commit 704957437c
1 changed files with 0 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

20
modules/lang/emacs-lisp/config.el
View file

@ -26,26 +26,6 @@ employed so that flycheck still does *some* helpful linting.")
(use-package! elisp-mode (use-package! elisp-mode
:mode ("\\.Cask\\'" . emacs-lisp-mode) :mode ("\\.Cask\\'" . emacs-lisp-mode)
:init
;; Instead of pestering the user about accepting unsafe file local variables,
;; I'd rather it quietly ignore them...
(setq-default enable-local-variables :safe)
;; ...but still log them, so we can discover them if we're looking for it.
(defadvice! +emacs-lisp-log-unsafe-local-variables-a (variables dir-name)
:before #'hack-local-variables-filter
(when (eq enable-local-variables :safe)
(pcase-dolist (`(,var . ,val) variables)
(cond ((memq var ignored-local-variables))
((memq var '(mode unibyte coding)))
((eq var 'eval)
(and enable-local-eval
(not (or (hack-one-local-variable-eval-safep val)
(safe-local-variable-p var val)))
(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))
((get var 'risky-local-variable)
(message "Ignoring risky file local variable: %S" var))))))
:config :config
(set-repl-handler! '(emacs-lisp-mode lisp-interaction-mode) #'+emacs-lisp/open-repl) (set-repl-handler! '(emacs-lisp-mode lisp-interaction-mode) #'+emacs-lisp/open-repl)
(set-eval-handler! '(emacs-lisp-mode lisp-interaction-mode) #'+emacs-lisp-eval) (set-eval-handler! '(emacs-lisp-mode lisp-interaction-mode) #'+emacs-lisp-eval)