[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master cf69503: Bind `enable-local-variables' in `hack-con
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] master cf69503: Bind `enable-local-variables' in `hack-connection-local-variables' |
Date: |
Sun, 24 Mar 2019 09:24:39 -0400 (EDT) |
branch: master
commit cf6950366bd2b2aad4daa2d601bd8ccdb50df700
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>
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 5353e54..b71e920 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master cf69503: Bind `enable-local-variables' in `hack-connection-local-variables',
Michael Albinus <=