From 3be75a9289bed76a1b96363c1a380d9371cf5f66 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz 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/geiser-debug.el') 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