summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--elisp/geiser-guile.el13
1 files changed, 8 insertions, 5 deletions
diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el
index d512185..994ea6b 100644
--- a/elisp/geiser-guile.el
+++ b/elisp/geiser-guile.el
@@ -305,7 +305,7 @@ it spawn a server thread."
(interactive)
(geiser-connect 'guile))
-(defun geiser-guile--set-load-path ()
+(defun geiser-guile--set-geiser-load-path ()
(let* ((path (expand-file-name "guile/" geiser-scheme-dir))
(witness "geiser/emacs.scm")
(code `(begin (if (not (%search-load-path ,witness))
@@ -318,12 +318,15 @@ it spawn a server thread."
`((,geiser-guile--path-rx geiser-guile--resolve-file-x)
("^ +\\([0-9]+\\):\\([0-9]+\\)" nil 1 2)))
(compilation-setup t)
- (font-lock-add-keywords nil
- `((,geiser-guile--path-rx 1
- compilation-error-face)))
+ (font-lock-add-keywords nil `((,geiser-guile--path-rx
+ 1 compilation-error-face)))
(let ((geiser-log-verbose-p t))
- (when remote (geiser-guile--set-load-path))
+ (when remote (geiser-guile--set-geiser-load-path))
(geiser-eval--send/wait ",use (geiser emacs)\n'done")
+ (mapcar (lambda (dir)
+ (let ((dir (expand-file-name dir)))
+ (geiser-eval--send/wait `(:eval (:ge add-to-load-path ,dir)))))
+ geiser-guile-load-path)
(geiser-guile-update-warning-level)))