[elpa] externals/beardbolt 264b614805 264/323: * beardbolt.el (bb-compile): Better handling of hack-local-variables.

[ELPA Syncer]

branch: externals/beardbolt
commit 264b614805e13867b4f762039bcab190cf32b68b
Author: João Távora <joaotavora@gmail.com>
Commit: João Távora <joaotavora@gmail.com>

    * beardbolt.el (bb-compile): Better handling of hack-local-variables.
---
 beardbolt.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/beardbolt.el b/beardbolt.el
index 53932a91fb..8177010f63 100644
--- a/beardbolt.el
+++ b/beardbolt.el
@@ -769,7 +769,13 @@ and return it."
 Interactively, determine LANG from `major-mode'."
   (interactive (list (bb--get-lang)))
   (bb--maybe-stop-running-compilation)
-  (let ((noninteractive t)) (hack-local-variables))
+  (cl-letf (((symbol-function 'hack-local-variables-confirm)
+             (lambda (_all-vars unsafe-vars risky-vars &rest _)
+               (when unsafe-vars
+                 (error "[beardbolt] Some variables unsafe %s" unsafe-vars))
+               (when risky-vars
+                 (error "[beardbolt] Some variables risky %s" risky-vars)))))
+    (hack-local-variables))
   (let* ((dump-file
           (make-temp-file "beardbolt-dump-" nil
                           (concat "." (file-name-extension buffer-file-name))