summaryrefslogtreecommitdiff
path: root/elisp/geiser-repl.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-08-31 16:41:45 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-08-31 16:41:45 +0200
commitac3b287438e8e5ca85f778f55094822408b1131b (patch)
tree72c9386df461151369ffe6108b1b4556562c6bc4 /elisp/geiser-repl.el
parente0251ff8859714eb0dbdb1fc7bbe31cd2eb61d89 (diff)
downloadgeiser-ac3b287438e8e5ca85f778f55094822408b1131b.tar.gz
geiser-ac3b287438e8e5ca85f778f55094822408b1131b.tar.bz2
Fix for importing modules at the REPL
Diffstat (limited to 'elisp/geiser-repl.el')
-rw-r--r--elisp/geiser-repl.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index adcf03f..ac4413e 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -237,6 +237,7 @@ If no REPL is running, execute `run-geiser' to start a fresh one."
((and (not ask) impl (geiser-repl--repl/impl impl)))))
(pop-up-windows geiser-repl-window-allow-split))
(cond ((and (eq (current-buffer) repl)
+ (not (eq repl buffer))
(buffer-live-p geiser-repl--last-scm-buffer))
(pop-to-buffer geiser-repl--last-scm-buffer))
(repl (pop-to-buffer repl))
@@ -278,14 +279,14 @@ module command as a string")
module command as a string")
(defun geiser-repl-import-module (&optional module)
- "Import a given module in the current namespace."
+ "Import a given module in the current namespace of the REPL."
(interactive)
(let* ((module (or module
(geiser-completion--read-module "Import module: ")))
(cmd (and module
(geiser-repl--import-cmd geiser-impl--implementation
module))))
- (switch-to-geiser)
+ (switch-to-geiser nil nil (current-buffer))
(geiser-repl--send cmd)))
(defun geiser-repl-nuke ()