diff options
| author | jao <jao@gnu.org> | 2022-02-23 16:59:41 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-02-23 16:59:41 +0000 |
| commit | ed6d6a1b362fe389acb7f7e1bf6d89ff88e060af (patch) | |
| tree | f9b8ab94dd59e487224a0c5121fe7d1f634dd394 /elisp/geiser-repl.el | |
| parent | c1cc4da1edc46b763e0342ab4aa971e54f48658d (diff) | |
| download | geiser-ed6d6a1b362fe389acb7f7e1bf6d89ff88e060af.tar.gz geiser-ed6d6a1b362fe389acb7f7e1bf6d89ff88e060af.tar.bz2 | |
Set REPL's default directory to project's root
Diffstat (limited to 'elisp/geiser-repl.el')
| -rw-r--r-- | elisp/geiser-repl.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index 60ce214..57ae204 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -520,6 +520,7 @@ will be set up using `geiser-connect-local' when a REPL is started.") (defun geiser-repl--set-up-load-path () (when geiser-repl-add-project-paths (when-let (root (funcall geiser-repl-current-project-function)) + (setq-local default-directory root) (dolist (p (cond ((eq t geiser-repl-add-project-paths) '(".")) ((listp geiser-repl-add-project-paths) geiser-repl-add-project-paths))) |