summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-10-16 02:11:24 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-10-16 02:11:24 +0200
commitfcfcf8f8dfd0a01dd269822fe9e44716f86be3c1 (patch)
tree9c6d283a459f76667f338abf8650f2af03c34174
parent9da96b7c7d959fb0005b562c923203d21050b4cb (diff)
downloadgeiser-chez-fcfcf8f8dfd0a01dd269822fe9e44716f86be3c1.tar.gz
geiser-chez-fcfcf8f8dfd0a01dd269822fe9e44716f86be3c1.tar.bz2
Bug fix: setting correct default-directory in debug buffers
-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))