From ed6d6a1b362fe389acb7f7e1bf6d89ff88e060af Mon Sep 17 00:00:00 2001 From: jao Date: Wed, 23 Feb 2022 16:59:41 +0000 Subject: Set REPL's default directory to project's root --- elisp/geiser-repl.el | 1 + 1 file changed, 1 insertion(+) (limited to 'elisp') 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))) -- cgit v1.2.3