summaryrefslogtreecommitdiff
path: root/elisp/geiser-guile.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2013-09-13 20:36:56 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2013-09-13 20:36:56 +0200
commit393305d2fcf612f4e5f99383f680f819b458c326 (patch)
treec74f36af8672b6c6c8c2e9624df19f2804cbd38c /elisp/geiser-guile.el
parentba42cac06db062d5392342930d3d175c1d3cf763 (diff)
downloadgeiser-chez-393305d2fcf612f4e5f99383f680f819b458c326.tar.gz
geiser-chez-393305d2fcf612f4e5f99383f680f819b458c326.tar.bz2
Guile: augmenting %load-compiled-path too
We add the paths in geiser-guile-load-path also to %load-compiled-path, and new directories added to the load path via geiser-add-to-load-path are added to both %load-path and %load-compiled-path. Here's hope Ludovic will like all these additions!
Diffstat (limited to 'elisp/geiser-guile.el')
-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)))