summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--elisp/geiser-debug.el2
1 files changed, 2 insertions, 0 deletions
diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el
index 7b47cd7..42f1dec 100644
--- a/elisp/geiser-debug.el
+++ b/elisp/geiser-debug.el
@@ -79,6 +79,7 @@ buffer.")
(impl geiser-impl--implementation)
(module (geiser-eval--get-module))
(jump nil)
+ (dir default-directory)
(buffer (current-buffer))
(debug (eq key 'geiser-debugger)))
(when debug
@@ -86,6 +87,7 @@ buffer.")
(geiser-debug--enter-debugger impl))
(geiser-debug--with-buffer
(erase-buffer)
+ (when dir (setq default-directory dir))
(insert what)
(newline 2)
(when (and res (not err))