diff options
| author | Tomas Volf <~@wolfsden.cz> | 2024-03-14 17:52:40 +0100 |
|---|---|---|
| committer | Tomas Volf <~@wolfsden.cz> | 2024-03-14 17:52:40 +0100 |
| commit | 43b99a46263712bd38b8e7d4ba93e4374649eb48 (patch) | |
| tree | 9e994e129971c8268ab1d0bb529e763198884310 | |
| parent | 2cccde1e3fb493ae4b1d523029b0b361080902d8 (diff) | |
| download | geiser-guile-43b99a46263712bd38b8e7d4ba93e4374649eb48.tar.gz geiser-guile-43b99a46263712bd38b8e7d4ba93e4374649eb48.tar.bz2 | |
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.
| -rw-r--r-- | geiser-guile.el | 5 |
1 files changed, 4 insertions, 1 deletions
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))) |