diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2020-02-13 03:17:08 +0000 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2020-02-13 03:55:07 +0000 |
| commit | f3099b4b4660b8804ea53a3ae241641765ddd240 (patch) | |
| tree | 382f1d0c632b1005f3d1ae2175a1cdf6f754a8b0 /elisp | |
| parent | ec22d9c1fc38fe3b38ec3d552a9e862864cc8f19 (diff) | |
| download | geiser-f3099b4b4660b8804ea53a3ae241641765ddd240.tar.gz geiser-f3099b4b4660b8804ea53a3ae241641765ddd240.tar.bz2 | |
Guile: use load paths defined in dir-local variables (fixes #268)
A similar idea should probably be used with other schemes, but right
now i feel ashamed of having taken so long to fix this one (assuming
it's fixed!), so let's rush this commit for a change.
Diffstat (limited to 'elisp')
| -rw-r--r-- | elisp/geiser-repl.el | 17 |
1 files changed, 6 insertions, 11 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index 1554698..54458e5 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -488,7 +488,9 @@ module command as a string") (defun geiser-repl--start-repl (impl address) (message "Starting Geiser REPL ...") (when (not address) (geiser-repl--check-version impl)) - (geiser-repl--to-repl-buffer impl) + (let ((buffer (current-buffer))) + (geiser-repl--to-repl-buffer impl) + (setq geiser-repl--last-scm-buffer buffer)) (sit-for 0) (goto-char (point-max)) (geiser-repl--autodoc-mode -1) @@ -881,9 +883,7 @@ buffer." "Start a new Geiser REPL." (interactive (list (geiser-repl--get-impl "Start Geiser for scheme implementation: "))) - (let ((buffer (current-buffer))) - (geiser-repl--start-repl impl nil) - (geiser-repl--maybe-remember-scm-buffer buffer))) + (geiser-repl--start-repl impl nil)) (defalias 'geiser 'run-geiser) @@ -891,10 +891,7 @@ buffer." "Start a new Geiser REPL connected to a remote Scheme process." (interactive (list (geiser-repl--get-impl "Connect to Scheme implementation: "))) - (let ((buffer (current-buffer))) - (geiser-repl--start-repl impl - (geiser-repl--read-address host port)) - (geiser-repl--maybe-remember-scm-buffer buffer))) + (geiser-repl--start-repl impl (geiser-repl--read-address host port))) (defun geiser-connect-local (impl socket) "Start a new Geiser REPL connected to a remote Scheme process @@ -902,9 +899,7 @@ over a Unix-domain socket." (interactive (list (geiser-repl--get-impl "Connect to Scheme implementation: ") (expand-file-name (read-file-name "Socket file name: ")))) - (let ((buffer (current-buffer))) - (geiser-repl--start-repl impl socket) - (geiser-repl--maybe-remember-scm-buffer buffer))) + (geiser-repl--start-repl impl socket)) (make-variable-buffer-local (defvar geiser-repl--last-scm-buffer nil)) |