From 7d17a3cc9a9a637bd87d8c87fee3e342b88ee286 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Fri, 13 Sep 2013 20:36:56 +0200 Subject: 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! --- elisp/geiser-guile.el | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) (limited to 'elisp') 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))) -- cgit v1.2.3