summaryrefslogtreecommitdiff
path: root/elisp/geiser-repl.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2020-02-13 03:17:08 +0000
committerJose Antonio Ortega Ruiz <jao@gnu.org>2020-02-13 03:55:07 +0000
commitf5e1a1085f3d033c68954bef7aa21b32bcc037c3 (patch)
treecac9dddc15a836ba616993bd7389705db0151cc1 /elisp/geiser-repl.el
parent0494aacaefd8b37ef012227cb28317a8c427d085 (diff)
downloadgeiser-guile-f5e1a1085f3d033c68954bef7aa21b32bcc037c3.tar.gz
geiser-guile-f5e1a1085f3d033c68954bef7aa21b32bcc037c3.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/geiser-repl.el')
-rw-r--r--elisp/geiser-repl.el17
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))