summaryrefslogtreecommitdiff
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
commitfca39ead02621a8568adbec81ea569f8beb8c39d (patch)
tree9d4dd75159f46e6e2c38e569a80a50a5de9880cf
parentca867c2f73cca99fceecf949336f51f99fcb1a17 (diff)
downloadgeiser-chez-fca39ead02621a8568adbec81ea569f8beb8c39d.tar.gz
geiser-chez-fca39ead02621a8568adbec81ea569f8beb8c39d.tar.bz2
run-geiser is now aware of the current buffer's implementation.
-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))