summaryrefslogtreecommitdiff
path: root/elisp/geiser-repl.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-04-26 15:08:48 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-04-26 15:08:48 +0200
commit43e8b54f94c054aa08e3d477ef4008631af13ce5 (patch)
tree1ea256deaf32ddd07ee45ffd36f4e22c2232f497 /elisp/geiser-repl.el
parente66fb678cafd5953906429ab559ca54828b98461 (diff)
downloadgeiser-43e8b54f94c054aa08e3d477ef4008631af13ce5.tar.gz
geiser-43e8b54f94c054aa08e3d477ef4008631af13ce5.tar.bz2
run-geiser is now aware of the current buffer's implementation.
Diffstat (limited to 'elisp/geiser-repl.el')
-rw-r--r--elisp/geiser-repl.el1
1 files changed, 1 insertions, 0 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index b17faed..b8f0c98 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -170,6 +170,7 @@ implementation name gets appended to it."
"Start a new Geiser REPL."
(interactive
(list (or (geiser-repl--only-impl-p)
+ (and (eq major-mode 'geiser-repl-mode) geiser-impl--implementation)
(geiser-repl--read-impl "Start Geiser for scheme implementation: "))))
(geiser-repl--start-repl impl))