emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/beardbolt a717d49879 198/323: Clear out default variabl


From: ELPA Syncer
Subject: [elpa] externals/beardbolt a717d49879 198/323: Clear out default variables after post processing is finished
Date: Thu, 9 Mar 2023 10:58:31 -0500 (EST)

branch: externals/beardbolt
commit a717d49879fcdc2afb2648b58781fbcdbfc15d80
Author: Jay Kamat <jaygkamat@gmail.com>
Commit: Jay Kamat <jaygkamat@gmail.com>

    Clear out default variables after post processing is finished
    
    This allows post processing functions to reliably see, for example,
    the compilation dir
---
 rmsbolt.el | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/rmsbolt.el b/rmsbolt.el
index f1272ed717..914899316c 100644
--- a/rmsbolt.el
+++ b/rmsbolt.el
@@ -1307,12 +1307,6 @@ Argument OVERRIDE-BUFFER use this buffer instead of 
reading from the output file
         (default-directory (buffer-local-value 'default-directory buffer))
         (src-buffer (buffer-local-value 'rmsbolt-src-buffer buffer)))
 
-    ;; Clear out default-set variables
-    (with-current-buffer src-buffer
-      (dolist (var rmsbolt--default-variables)
-        (rmsbolt--set-local var nil))
-      (setq-local rmsbolt--default-variables nil))
-
     (with-current-buffer (get-buffer-create rmsbolt-output-buffer)
       ;; Store src buffer value for later linking
       (cond ((not compilation-fail)
@@ -1388,7 +1382,12 @@ Argument OVERRIDE-BUFFER use this buffer instead of 
reading from the output file
                (setq-local rmsbolt-line-mapping nil))
              (rmsbolt--cleanup-overlays)))
       ;; Reset automated recompile
-      (setq rmsbolt--automated-compile nil))))
+      (setq rmsbolt--automated-compile nil))
+    ;; Clear out default-set variables
+    (with-current-buffer src-buffer
+      (dolist (var rmsbolt--default-variables)
+        (rmsbolt--set-local var nil))
+      (setq-local rmsbolt--default-variables nil))))
 
 ;;;;; Parsing Options
 (defun rmsbolt--get-lang ()



reply via email to

[Prev in Thread] Current Thread [Next in Thread]