From: Michael Albinus <michael.albinus@gmx.de>
Date: Sun, 24 Mar 2019 13:24:31 +0000 (+0100)
Subject: Bind `enable-local-variables' in `hack-connection-local-variables'
X-Git-Tag: emacs-27.0.90~3355
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cf6950366bd2b2aad4daa2d601bd8ccdb50df700;p=emacs.git

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'.
---

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