From 43b99a46263712bd38b8e7d4ba93e4374649eb48 Mon Sep 17 00:00:00 2001
From: Tomas Volf <~@wolfsden.cz>
Date: Thu, 14 Mar 2024 17:52:40 +0100
Subject: Allow buffer-local geiser-guile-warning-level.

Since geiser-guile--startup is calling in the new buffer already, buffer-local
value of geiser-guile-warning-level had no effect.  Luckily the original buffer
is accessible using geiser-repl--last-scm-buffer, so we can let-bind the value
from it for the duration of geiser-guile-update-warning-level.

Fixes #45.

* geiser-guile.el (geiser-guile--startup): Let-bind geiser-guile-warning-level
before calling geiser-guile-update-warning-level.
---
 geiser-guile.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/geiser-guile.el b/geiser-guile.el
index 7663b83..558c6bf 100644
--- a/geiser-guile.el
+++ b/geiser-guile.el
@@ -638,7 +638,10 @@ See `geiser-guile-use-declarative-modules'."
     (dolist (dir g-load-path)
       (let ((dir (expand-file-name dir)))
         (geiser-eval--send/wait `(:eval (:ge add-to-load-path ,dir)))))
-    (geiser-guile-update-warning-level)
+    (let ((geiser-guile-warning-level
+           (buffer-local-value 'geiser-guile-warning-level
+                               geiser-repl--last-scm-buffer)))
+      (geiser-guile-update-warning-level))
     (let ((geiser-guile-doc-process-texinfo
            (buffer-local-value 'geiser-guile-doc-process-texinfo
                                geiser-repl--last-scm-buffer)))
-- 
cgit v1.2.3