Commit cf695036 authored by Michael Albinus's avatar Michael Albinus

Bind `enable-local-variables' in `hack-connection-local-variables'

* lisp/files-x.el (hack-connection-local-variables):
Bind `enable-local-variables', instead of re-declaring
`safe-local-variable-p'.
parent dbd6490a
Pipeline #1062 passed with stage
in 50 minutes and 1 second
......@@ -31,7 +31,6 @@
;;; Code:
(eval-when-compile (require 'subr-x)) ; for string-trim-right
(eval-when-compile (require 'cl-lib)) ; for cl-letf
;;; Commands to add/delete file-local/directory-local variables.
......@@ -690,7 +689,7 @@ This does nothing if `enable-connection-local-variables' is nil."
;; Push them to `file-local-variables-alist'. Connection-local
;; variables do not appear from external files. So we can regard
;; them as safe.
(cl-letf (((symbol-function 'safe-local-variable-p) (lambda (_sym _val) t)))
(let ((enable-local-variables :all))
(hack-local-variables-filter connection-local-variables-alist nil))))
;;;###autoload
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment