From cf6950366bd2b2aad4daa2d601bd8ccdb50df700 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Sun, 24 Mar 2019 14:24:31 +0100 Subject: [PATCH] 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'. --- lisp/files-x.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lisp/files-x.el b/lisp/files-x.el index 5353e54158e..b71e9204f32 100644 --- a/lisp/files-x.el +++ b/lisp/files-x.el @@ -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 -- 2.39.5