From fcfcf8f8dfd0a01dd269822fe9e44716f86be3c1 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Sat, 16 Oct 2010 02:11:24 +0200
Subject: Bug fix: setting correct default-directory in debug buffers
---
elisp/geiser-debug.el | 2 ++
1 file changed, 2 insertions(+)
(limited to 'elisp')
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))
--
cgit v1.2.3