summaryrefslogtreecommitdiff
path: root/elisp
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
commit3be75a9289bed76a1b96363c1a380d9371cf5f66 (patch)
tree0d1ef436db0b1ea3127968f16d0ed9301c6167d1 /elisp
parent91d28cdb2be1f7c9c5d47665e7ba6cd616f90c0e (diff)
downloadgeiser-3be75a9289bed76a1b96363c1a380d9371cf5f66.tar.gz
geiser-3be75a9289bed76a1b96363c1a380d9371cf5f66.tar.bz2
Bug fix: setting correct default-directory in debug buffers
Diffstat (limited to 'elisp')
-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))