From 2d060d01b4fe318ca7b59fe3acf665491499bc08 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Wed, 1 Sep 2010 04:29:30 +0200 Subject: Fix for C-c C-m (enter module) in REPL --- elisp/geiser-repl.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'elisp') diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index ac4413e..dd85808 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -271,7 +271,8 @@ module command as a string") (cmd (and module (geiser-repl--enter-cmd geiser-impl--implementation module)))) - (switch-to-geiser nil nil buffer) + (unless (eq major-mode 'geiser-repl-mode) + (switch-to-geiser nil nil (or buffer (current-buffer)))) (geiser-repl--send cmd))) (geiser-impl--define-caller geiser-repl--import-cmd import-command (module) -- cgit v1.2.3