branch: externals/beardbolt
commit 264b614805e13867b4f762039bcab190cf32b68b
Author: João Távora <[email protected]>
Commit: João Távora <[email protected]>
* 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))
