diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-10-16 02:11:24 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-10-16 02:11:24 +0200 |
| commit | fcfcf8f8dfd0a01dd269822fe9e44716f86be3c1 (patch) | |
| tree | 9c6d283a459f76667f338abf8650f2af03c34174 /elisp/geiser-debug.el | |
| parent | 9da96b7c7d959fb0005b562c923203d21050b4cb (diff) | |
| download | geiser-chez-fcfcf8f8dfd0a01dd269822fe9e44716f86be3c1.tar.gz geiser-chez-fcfcf8f8dfd0a01dd269822fe9e44716f86be3c1.tar.bz2 | |
Bug fix: setting correct default-directory in debug buffers
Diffstat (limited to 'elisp/geiser-debug.el')
| -rw-r--r-- | elisp/geiser-debug.el | 2 |
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)) |