(dolist (elt variables)
(unless (or (member elt unsafe-vars)
(member elt risky-vars))
- (push elt file-local-variables-alist)))
+ (let ((var (car elt)))
+ (unless (eq var 'eval)
+ (setq file-local-variables-alist
+ (assq-delete-all var file-local-variables-alist)))
+ (push elt file-local-variables-alist))))
;; Query, unless all are known safe or the user wants no
;; querying.
(if (or (and (eq enable-local-variables t)
(hack-local-variables-confirm
variables unsafe-vars risky-vars dir-name))
(dolist (elt variables)
- (push elt file-local-variables-alist)))))))
+ (let ((var (car elt)))
+ (unless (eq var 'eval)
+ (setq file-local-variables-alist
+ (assq-delete-all var file-local-variables-alist)))
+ (push elt file-local-variables-alist))))))))
+
(defun hack-local-variables (&optional mode-only)
"Parse and put into effect this buffer's local variables spec.
(enable-local-variables
(hack-local-variables-filter result nil)
(when file-local-variables-alist
+ ;; Any 'evals must run in the Right sequence.
(setq file-local-variables-alist
(nreverse file-local-variables-alist))
(run-hooks 'before-hack-local-variables-hook)