From 43e8b54f94c054aa08e3d477ef4008631af13ce5 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Sun, 26 Apr 2009 15:08:48 +0200
Subject: run-geiser is now aware of the current buffer's implementation.

---
 elisp/geiser-repl.el | 1 +
 1 file changed, 1 insertion(+)

(limited to 'elisp')

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))
 
-- 
cgit v1.2.3